Nom d'un onglet dans une cellule

[balou]

Bonjours à tous,

Je souhaite récupérer le nom de l'onglet dans une cellule de ce même onglet et ceci sur différentes feuilles de mon fichier excel.

Courant mars "Baroude" donna une réponse à "Essen" qui fonctionne bien, mais dès que l'on fait une copie de la feuille1 puis on la renome, le résultat de CELLULE"filename" retourne le nouveau nom.

Merci pour votre aide
Philippe

 

[Alain]

Bonjour,

Essaye avec çà :

Sub Recup_Noms()
Dim Feuille As Worksheet
For Each Feuille In ActiveWorkbook.Sheets
Feuille.Range("A1") = Feuille.Name
Next
End Sub

En considérant "A1" comme cellule devant recevoir le nom de chaque onglet.

Bon courage.

@+.