Impression chemin complet

Bonjour le Forum

J'utilisais le code ci dessous récupèré sur ce merveilleux Forum.
Mais il ne fonctionne plus 🙁

Le message est :
Erreur d'éxécution '50290'
La méthode 'FullName' de l'objet '_Workbook' a échoué.

Et là je sèche. Si je remplace .FullName par .Name c'est OK mais c'est pas ce que je veux.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ThisWBPath As String
Dim NomDeLaFeuille As String
NomDeLaFeuille = ActiveSheet.Name
ThisWBPath = ActiveWorkbook.FullName
Sheets(NomDeLaFeuille).PageSetup.LeftFooter = ThisWBPath & " / &A"
End Sub

Merci