Nom Feuille & Nom Fichier (Solution !!!)

Bonjour,

Il ne s'agit pas d'une question mais une solution (afin de trouver rapidement une réponse sans se perdre dans les méandres de trop nombreuse réponses dans d'autres forum :


Pour le nom du Fichier :


Dans un module de macro on met :

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

Attention !!! On Obtient le nom du fichier avec l'extention.

Pour Retirer l'extention dans le gestionnaire de nom 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 de la Feuille :



Dans un module de macro on met :

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()