Ouverture browser sur fichier par defaut

Version imprimable

Bonjour,

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

Code:

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.

03/09/2007, 14h05
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+

bonjour

Tu peux utiliser l'instruction ChDir
Code:

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