Discussion :

[djoumusic]

Bonjour,
J'ouvre par macro une filedialog pour selectionner un fichier..
voici mon code

Code :

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

1
2
3
 Dim fichier As FileDialog
    Set fichier = Application.FileDialog(msoFileDialogFilePicker)
    fichier.Show

j'aimerai pouvoir predefinir l'emplacement de recherche, qui serait dans le dossier contenant le fichier excel utilisé,

par exemple : si mon fichier excel est dans " mes documents"
que le dossier de recherche soit " dans mes documents",
par ce qu' actuellement, c'est sur le bureau par defaut...
et ca peut etre fastidieux... quand les chemins sont longs....

merci

[Minick]

Salut,

Avec la propriete InitialFileName

Code :

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

1
2
3
4
 Dim fichier As FileDialog
    Set fichier = Application.FileDialog(msoFileDialogFilePicker)
    fichier.InitialFileName = "c:\"  ' Ici ton dossier avec *.xls pour ne voir que les xls par defaut
    fichier.Show

[aalex_38]

Bonjour à tous,

si mon fichier excel est dans " mes documents"
que le dossier de recherche soit " dans mes documents"

Code :

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

1
2
 
fichier.InitialFileName =  Application.ThisWorkbook.Path & "\"

[djoumusic]

Super