LISTER feuilles d'un classeur choisit à partir d'un bouton Parcourir

[midotech9]

Bonjour à tous,

Voila je débute en VBA, vous pose une question urgente en espèrant avoir de l'aide
Je souhaite lister les feuilles d'un classeur choisit à partir d'un bouton Parcourir ( à partir de son chemin d'accés donc)

le code suivant récupére bien le chemin et le nom du fichier, mais pas la liste des ses feuilles

Sub parcourir_Click()

    
Dim chemin As String         'nom de variable récupérant le chemin du fichier
Dim nomFichier As String         'nom de variable récupérant le chemin du fichier
Dim i As Integer

   chemin = joindre
    If chemin <> "" Then Range("B3").Value = chemin
    nomFichier = Dir(chemin)
    If nomFichier <> "" Then Range("B5").Value = nomFichier
     
    Workbooks("chemin").Activate
    
    For i = 1 To Sheets.Count
        Cells(5 + i, 5) = Sheets(i).Name
    Next i
End Sub

Merci d'avance

 

[Guest]

Re : LISTER feuilles d'un classeur choisit à partir d'un bouton Parcourir

Bonjour et bienvenue sur le forum,

va jeter un oeil ici: ADO sans doute y trouveras-tu ton bonheur
Peut-être faudra-t-il adapter les chaines de connexion.

A+

 

[Paf]

Re : LISTER feuilles d'un classeur choisit à partir d'un bouton Parcourir

Bonjour,


on peut le faire sans utiliser ADO, mais il faut ouvrir le classeur pour lister ses feuilles.

chemin = joindre ' Vérifier  ce qu'il y a dans [B]joindre[/B]
If chemin <> "" Then Range("B3").Value = chemin

nomFichier = Dir(chemin)
If nomFichier <> "" Then Range("B5").Value = nomFichier
     
Workbooks.Open chemin & nomFichier
   
For i = 1 To Sheets.Count
    Cells(5 + i, 5) = Sheets(i).Name
Next i

Workbooks(nomFichier).Close

A+