Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

sélectionner fichier via une arborescence

JulieTlse

XLDnaute Nouveau
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

XLDnaute Barbatruc
Repose en paix
Re : sélectionner fichier via une arborescence

Bonjour,

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

JB
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…