Utilisation des nom de feuilles

Pas bien grave ;-))

désolé pour le doublon. J'avais eu un message qui disait qu'u ne erreur s'est
produite et que le message n'avait pas été envoyé.

Bonjour,

Inutile de poster 2 fois le même message ; regarde plutôt le s réponses.

Voici une variante :

Sub ListeFeuilles()
Dim f As Worksheet, i As Integer
With ThisWorkbook.Sheets("Article").Range("A1")
For Each f In ThisWorkbook.Sheets
If f.Name <> "Article" Then
.Offset(i) = f.Name
i = i + 1
End If
Next
End With
End Sub

Bonjour à tous
Dans un classeur Excel, j'ai une première feuille appelée A RTICLE, et une
centaine d'autre feuilles diversement nommées (Cahier, stylo, ag rafe,etc.)
Je souhaite parcourir toutes les feuilles et récupérer leur s noms, que je
vais inscrire dans la colonne A de la feuille ARTICLE.
Merci à toute personne qui pourrait m'aider avec le code d'une m acro.

--
Cordialement,

Michel Gaboly
www.gaboly.com

--
Cordialement,

Michel Gaboly
www.gaboly.com

Bonjour,

Inutile de poster 2 fois le même message ; regarde plutôt les répon ses.

Voici une variante :

Sub ListeFeuilles()
Dim f As Worksheet, i As Integer
With ThisWorkbook.Sheets("Article").Range("A1")
For Each f In ThisWorkbook.Sheets
If f.Name <> "Article" Then
.Offset(i) = f.Name
i = i + 1
End If
Next
End With
End Sub

Bonjour à tous
Dans un classeur Excel, j'ai une première feuille appelée ARTICLE, et une
centaine d'autre feuilles diversement nommées (Cahier, stylo, agrafe, etc.)
Je souhaite parcourir toutes les feuilles et récupérer leurs noms, que je
vais inscrire dans la colonne A de la feuille ARTICLE.
Merci à toute personne qui pourrait m'aider avec le code d'une macro.

--
Cordialement,

Michel Gaboly
www.gaboly.com