Liste des noms de feuilles

Résolu
john deere -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

je souhaite obtenir une liste des titres des feuilles qui composent mon fichier excel. comment faire ?

merci
A voir également:

4 réponses

michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Que je suis C...!

voilà la proc modifiée

Sub repertorier()
Dim cptr As Byte

nbre = ThisWorkbook.Sheets.Count

For cptr = 1 To nbre
test = Sheets(cptr).Name
Cells(cptr, 1) = Sheets(cptr).Name

Next

End Sub
0
john deere
 
merci chef ! je suis un bon élève hein :)
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Félicitations! l'élève a dépassé le maître !!!

Et Géant Vert gagne un MAS-SEY-FER-GU-SON ! Yeah!

Bon, j'vais pas trop trainer, le délire est là.
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Salut tracteur vert,

Sub repertorier()
Dim liste() As String
Dim cptr As Byte

nbre = ThisWorkbook.Sheets.Count

For cptr = 1 To nbre
Cells(cptr, 1) = Sheets(cptr).Name
cptr = cptr + 1
Next

End Sub

michel
-1
john deere
 
merci beaucoup !

le géant vert qui conduit le tracteur vert :)
0
john deere
 
j'ai un souci, ça ne prend en compte qu'une feuille sur deux pourquoi ?
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Effectivement, y'a un truc: je regarde et te dis
-1
john deere
 
j'ai retiré cptr = cptr + 1 et ça prend en compte toutes les feuilles :)
je suppose que c'est parce que next qui incrémente déjà ?
0