ouverture d'explorateur objet

[jarod93]

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

merci d'avance

 

[Pierrot93]

Re : ouverture d'explorateur objet

Bonjour,

regarde peut être ceci, à adapter, en espérant que cela puisse t'aider à avancer :

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

bon après midi
@+

 

[jarod93]

Re : ouverture d'explorateur objet

merci bcp c'est parfait ! j'aurais jamais trouvé

 

[jarod93]

Re : ouverture d'explorateur objet

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é

 

[Pierrot93]

Re : ouverture d'explorateur objet

Re,

modifie comme suit :

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

 

[jarod93]

Re : ouverture d'explorateur objet

merci beaucoup c'était trop technique pour moi !