Macro Pieds de page variable

[Int0x]

Bonjour,

Je dispose d'une macro qui permet de changer le pied de page de tous les onglets du classeur.

Sub PiedsPages()
    Dim sh As Worksheet

    For Each sh In Worksheets
        sh.PageSetup.CenterFooter = "TATAYOYO - Juin 2011"
    Next sh
    
End Sub

Je souhaiterais rendre cette macro "dynamique" pour qu'elle fasse référence à une cellule du fichier (exemple: A1) pour que l'on puisse changer le mois sans avoir à rentrer dans le code (c'est actuellement figé, et je dois rentrer modifier le code pour actualiser les dates).

Par avance merci les experts 🙄
Int0x

 

[phlaurent55]

Re : Macro Pieds de page variable

Bonjour intox,

essaie ceci:
sh.PageSetup.CenterFooter = Sheets("Ta_Feuille").[A1]

à+
Philippe

 

[Int0x]

Re : Macro Pieds de page variable

Bonjour intox,

essaie ceci:
sh.PageSetup.CenterFooter = Sheets("Ta_Feuille").[A1]

à+
Philippe

Mille merci Philippe,
C'est juste parfait (et tellement simple).

Au plaisir,
Int0x