Sub NomsOnglets()
'Excel-lent le 23/11/07
Dim i As Integer
Dim NomOnglet As Variant
For i = 1 To Worksheets.Count
NomOnglet = Sheets(i).Name
Sheets(i).Range("A1") = NomOnglet
Next i
End Sub
CoucouRe : mettre le nom d'un onglet dans une cellule
Bonjour le Forum,
Bonjour paselolau,
Je ne sais pas si cela fonctionne sous excel 2007 mais sous excel 2003 une solution
Allé dans menu insertion => Nom => définir dans le premier tu mets un nom (dans l'exemple lire) dans le champ du bas la formule =LIRE.CELLULE(32)
ensuite dans la cellule ou tu veux afficher le nom de l'onglet la formule =SUBSTITUE(lire;GAUCHE(lire;TROUVE("]";lire));"")
voir fichier joint
Jocelyn