bonjour j'ai un petit probleme , j'ai une macro qui ouvre un explorateur d'objet mais j'aimerais que par defaut l'explorateur s'ouvre sur un dossier que j'aurais choisi voici la macro :
Sub Macro1()
nom = Application.GetOpenFilename("Nom fichier,*.xls")
Workbooks.Open nom
end sub
regarde peut être ceci, à adapter, en espérant que cela puisse t'aider à avancer :
Code:
Dim chemin As String
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = ActiveWorkbook.Path & "\"
.Filters.Clear
.Filters.Add "ma descrip", "*.xls"
.Show
If .SelectedItems.Count > 0 Then chemin = .SelectedItems(1)
End With
ah mince j'ai encore un probleme , une fois que je choisi un fichier j'ai juste la possibilité de cliker sur ok et il ne passe rien , moi j'ai aimerais qu'il ouvre le fichier sélectionné
Dim chemin As String
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = ActiveWorkbook.Path & "\"
.Filters.Clear
.Filters.Add "ma descrip", "*.xls"
.Show
If .SelectedItems.Count > 0 Then Workbooks.Open .SelectedItems(1)
End With