sélectionner fichier via une arborescence

[JulieTlse]

Bonjour à tous,
Travaillant sous Excel 2000, je voudrais pouvoir charger un fichier .xls à partir d'une arborescence qui s'affiche dans une boite de dialogue.
J'ai copié du code depuis un forum antérieur, mais il ne fonctionne pas.
https://www.excel-downloads.com/threads/arborescence-selection-de-dossier-pas-fichier.28157/
L'erreur affichée est la suivante:
"erreur -2147024894 (80070002)
la méthode BrowseForFolder de l'objet IShellDispatch4 a échoué"

Ma théorie est que cette BrowseForFolder serait incompatible avec Excel 2000.
Ma théorie est-elle vraie? Mais alors, y'a-t-il une fonction pour effectuer mon traitement?

 

[BOISGONTIER]

Re : sélectionner fichier via une arborescence

Bonjour,

Sub choisir_fichier()
    nf = Application.GetOpenFilename("Fichiers Xls,*.xls")
    If Not nf = False Then
       Workbooks.Open FileName:=nf
    End If
End Sub

JB

 

[JulieTlse]

Re : sélectionner fichier via une arborescence

Wahou! C'est très efficace!
Merci bcp JB.