ci joint le code de la macro à inserer dans la fichier excel, on recupere le nom du document, mais pas le chemin
Sub Mise_en_page() 'Mise en page des feuilles d'un classeur '
Application.ScreenUpdating = False
Dim Vfeuille As Worksheet, depart As String
depart = ActiveSheet.Name
For Each Vfeuille In ActiveWorkbook.Sheets
Vfeuille.Select
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesTall = 1 ' ajustement en longueur / 1 page '
.FitToPagesWide = 1 'ajustement en largeur / 1 page '
.BlackAndWhite = True 'impression en noir et blanc '
.CenterHorizontally = True
.CenterVertically = True
.LeftMargin = Application.CentimetersToPoints(0.5)
.RightMargin = Application.CentimetersToPoints(0.5)
.TopMargin = Application.CentimetersToPoints(1)
.BottomMargin = Application.CentimetersToPoints(1)
.HeaderMargin = Application.CentimetersToPoints(1.3)
.FooterMargin = Application.CentimetersToPoints(1.3)
.LeftFooter = "&F&08" 'Nom classeur'
.CenterFooter = "&A&08" 'nom feuille'
.RightFooter = "&J&08" 'date système '
End With
On Error Resume Next
Next
Sheets(depart).Select 'retour à la feuille de départ '
End Sub