Ajouter les pieds de page Excel

Pour ajouter des pieds de pages automatiquement à tous les onglets d'un classeur excel, utiliser la macro suivante :


Sub AjoutePiedPage()
'
' AjoutePiedPage Macro
' Macro enregistrée le 29/08/2008 par C.Mege
'

For Each page In Worksheets
With page.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&""Arial Narrow,Normal""&8MMV - SI - &Z" & Chr(10) & "&F - Imprimé &D"
.CenterFooter = ""
.RightFooter = "&""Arial Narrow,Normal""&8Page &P"
.PrintErrors = xlPrintErrorsDisplayed
End With
Next
End Sub



La partie "&""Arial Narrow,Normal""&8 permet de définir la police et la taille de celle-ci (8 points)

Les codes &Z &F &D &P correspondent à des champs mis à jour automatiquement par excel (date, nom et emplacement du fichier...)