A+ActiveWorkbook, propriété - Exemple
Cet exemple montre comment afficher le nom du classeur actif.
MsgBox "The name of the active workbook is " & ActiveWorkbook.Name
'Si tu veux mettre le nom dans un intitulé
Me.Label1.Caption = ActiveWorkbook.Name
'Si tu veux mettre le nom dans une zone de texte
Me.Textbox1.Value = ActiveWorkbook.Name
'Si tu veux afficher le nom directement dans le la barre d'identification du USF
Me.Caption = ActiveWorkbook.Name