Bonjour le Forum
J'utilise cette macro évènementielle dans "ThisWorbook" pour mettre le chemin complet du fichier (code récupèré sur ce Forum) avant l'impression d'une feuille du fichier.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ThisWBPath As String
Dim NomDeLaFeuille As String
NomDeLaFeuille = ActiveSheet.Name
ThisWBPath = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
Sheets(NomDeLaFeuille).PageSetup.LeftFooter = ThisWBPath & " / &A"
End Sub
L'ennui est que je réalise une impression de plusieurs feuilles (des feuilles graphiques dans mon cas) dudit fichier, cette macro ne s'applique qu'au premier graphique.
Une solution est de la mettre dans chacun des graphiques à imprimer mais il doit y avoir une solution beaucoup plus universelle du style comptage des feuilles à imprimer et ensuite boucle de cette macro sur chacune des feuilles mais je bute sur la syntaxe ...et je n'ai pas trouvé dans le Forum
Merci de votre aide
J'utilise cette macro évènementielle dans "ThisWorbook" pour mettre le chemin complet du fichier (code récupèré sur ce Forum) avant l'impression d'une feuille du fichier.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ThisWBPath As String
Dim NomDeLaFeuille As String
NomDeLaFeuille = ActiveSheet.Name
ThisWBPath = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
Sheets(NomDeLaFeuille).PageSetup.LeftFooter = ThisWBPath & " / &A"
End Sub
L'ennui est que je réalise une impression de plusieurs feuilles (des feuilles graphiques dans mon cas) dudit fichier, cette macro ne s'applique qu'au premier graphique.
Une solution est de la mettre dans chacun des graphiques à imprimer mais il doit y avoir une solution beaucoup plus universelle du style comptage des feuilles à imprimer et ensuite boucle de cette macro sur chacune des feuilles mais je bute sur la syntaxe ...et je n'ai pas trouvé dans le Forum
Merci de votre aide