Titre d'une feuille dans une cellule en VBA

[Milan]

Bonjour,
J'utilise le code VBA ci-dessous pour afficher le nom de la feuille dans une cellule pour toutes les feuilles d'un classeur.

Private Sub Worksheet_Activate()
Dim sh As Worksheet

For Each sh In Worksheets
sh.Range("G2") = sh.Name
Next
End Sub

Le code fonctionne bien, mais je veux que le nom de la dernière page ne s'affiche pas.
Est-ce qu'il est possible de le faire et est-ce-que qq'un pourrait m'envoyer ce code(j'ai un rajout de feuilles dynamique) ??

Merci

 

[vgendron]

bonjour

Sub listefeuille()
For i = 1 To Sheets.Count - 1
    Sheets(i).Range("G2") = Sheets(i).Name
Next i
End Sub

 

[Milan]

Merci de ta réponse rapide.
Tu as résolu mon problème.

 

[vgendron]

Par contre ton code ne fonctionne pas correctement dans mon fichier.

et je suis censé deviner ce qui ne fonctionne pas??

le besoin exprimé c'est: mettre le nom de la feuille en G2 sauf pour la dernière feuille
dans ton fichier. la dernière.. c'est la feuille "Test"....

le besoin ne serait il pas plutot:
mettre le nom de la feuille en G2 SAUF pour la feuille Cover.??

Sub ListeSaufCover()
For Each ws In Worksheets
    If ws.Name <> "Cover page" Then ws.Range("G2") = ws.Name
Next ws
End Sub

 

[zebanx]

Bonjour à tous les deux

Sans VBA
=STXT(CELLULE("Nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;32)

Il faut que le fichier soit enregistré (me semble-t-il).

++
zebanx

 

[Milan]

Bonjour zebanx
Une fonction dans la cellule ne fonctionne pas correctement quand j'ajoute des pages avec un code VBA.

Vgendron
C'est tout bon, j'avais pas mis la bonne condition d'activation de ce code. le premier code que tu m'avais envoyé fonctionne bien.

Merci à tous les deux