Evènement BeforePrint dans classeur Perso

[Stéphane]

Bonjour à tous,

Dans les versions d'excel antérieur à 2002 nous ne pouvons pas imprimer en en-tête ou pied de page le chemin complet d'un classeur.
Par contre, il existe une macro pour cela :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each sht In ThisWorkbook.Sheets
sht.PageSetup.LeftFooter = "&8" & ThisWorkbook.FullName
Next sht
End Sub

Elle fonctionne bien dans n'importe quel fichier mais il faut l'inclure dans le module "ThisWorkbook" du fichier sur lequel on travaille.

J'ai essayé de l'inclure dans "ThisWorkbook" du claseur "PERSO.XLS" pour faire fonctionner cette macro sur n'importe quel fichier sur lequel je serai succeptible de travailler dans le futur, mais cela ne fonctionne pas !??
Est-ce donc impossible ???

Merci à tous pour vos lumières.

Stéphane.

 

[myDearFriend]

Bonsoir Stéphane,


Ci-joint une petite macro complémentaire à installer via Outils / Macros complémentaires...

Cette macro imposera pour chaque page de chaque classeur ouvert ultérieurement le bas de page que tu souhaites.

Nb : pour accéder au code VBA, le mot de passe est "mydearfriend"


Cordialement,
Didier_mDF