Excel - Insérer nom de l'onglet dans cellule

Dit merci à néné

Function SheetName() As String
Application.Volatile
SheetName = Application.Caller.Parent.Name
End Function

Patience et obstination et..............ça marche !
Si j'ai pu te rendre service c'est top.
Bibidel

Ta macro est fausse, car elle ne mettra à chaque fois que le nom de ta première feuille, la bonne macro dans ta méthode serait :

Sub nom()  
'  
' nom Macro  

Cells(1, 1) = ActiveSheet.Name  

End Sub 

Moi perso, je préfère la méthode de néné, qui me semble à la fois plus souple et automatique.

Ta méthode est juste mais il faut pour chaque onglet executer la macro qui s'ajoute toujours au même endroit de la feuille.

La méthode d'Eric est à mon sens la pire, parce qu"elle est lourde si on doit souvent la recopier, et ne marche pas sur plusieurs onglet (donc aucun intérêt)
___________________________________________________________________________

Pour le nom du Fichier :


Dans un module de macro on met :

Function FileName() As String  
Application.Volatile  
FileName = Sheets.Parent.Name  
End Function

On Obtient le nom du fichier avec l'extention.

Pour Retirer l'extention dans le gestionnaire de nom tu créer :

FileName2 avec pour formule :

=GAUCHE(FileName();TROUVE(".";FileName())-1)

dans n'importe quelle cellule, n'importe où tu écris :

=FileName2

__________________________________________________________________________

Pour le nom d'un onglet :

mettre dans un module de macro :

Function SheetName() As String  
Application.Volatile  
SheetName = Application.Caller.Parent.Name  
End Function

puis utiliser dans n'importe quelle cellule et n'importe quel onglet la formule :

=SheetName()