ister les 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

Code :

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

 

[zeb]

Bonjour,

Merci de modifier le message pour respecter le règlement.
Ici, le code ne se présente pas en précisant "Code :" comme tu l'as fait, mais en l'encadrant avec les balises [code]..[/code].

 

[zeb]

Ohlala !
Je viens de lire ton code (bien qu'il soit mal présenté ).

Et j'ai des choses à te dire :

Attention à tes commentaires. Je ne les trouve pas très utiles. Surtout que tu écris 2 fois la même chose !
Qu'est-ce que "joindre" ?
Tu confonds variable et valeur.
Utilise Worksheets au lieu de Sheets.
Ce n'est pas comme ça qu'on ouvre un classeur.
Et surtout, ne laisse pas Excel définir pour toi les objets par défaut.

Je ne t'en dis pas plus, avant que tu n'ais revu la présentation de ton message précédent.
Sinon c'est contre moi que le modo va se fâcher. [:zeb:4]