Bonjour,
J'ai trouvé le code suivant sur le forum, mais j'ai une question sur le code:
Je souhaiterai ouvrir l'explorateur dans un fichier bien precis par defaut et non pas dans mes documents. Possible?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Sub Ouverture_explorateur_fichier() Dim Fichier As Variant Dim Wb As Workbook Dim tbl As Range Fichier = Application.GetOpenFileName("Classeurs Excel (*.xls), *.xls") If Fichier = False Then Exit Sub Set Wb = Workbooks.Open(Fichier) Application.DisplayAlerts = False Wb.Close Set Wb = Nothing Application.DisplayAlerts = True End Sub
Par avance merci.
Partager