Discussion :

[zeralium]

Bonjour,

J'ai trouvé le code suivant sur le forum, mais j'ai une question sur le code:

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

Je souhaiterai ouvrir l'explorateur dans un fichier bien precis par defaut et non pas dans mes documents. Possible?

Par avance merci.

[LeForestier]

Bonjour,
Tu parle bien de l'explorateur Windows ? parce que l'exemple que tu donne ne correspond pas à ta demande ?

Sinon, tu peu ouvrir l'explorateur, dans un répertoir spécifié, va voir sur ce poste , il y à bien un petit problème avec les fichiers mais pas avec les répertoirs.
A+

[SilkyRoad]

bonjour

Tu peux utiliser l'instruction ChDir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Fichier As Variant
 
ChDir ("C:\Documents and Settings\mimi\dossier")
Fichier = Application.GetOpenFilename("Classeurs Excel (*.xls), *.xls")
If Fichier = False Then Exit Sub

Regarde aussi l'instruction ChDrive si le fichier est sur un autre disque que celui spécifié par défaut.



michel