Macro impression

Salut chers AMIS du forum

J'utilise la macro ci-après pour faire mes impressions.

J'aimerais ajouter un bout de code qui va récupérer le contenu de ma cellule B2 en pied de page.

With ActiveSheet

.PageSetup.Zoom = False

.PageSetup.FitToPagesWide = 1

.PageSetup.FitToPagesTall = 1

End With

Range("A1:R26").PrintOut Copies:=1, Collate:=True

Merci et bon Weekend à tous

Bonjour,

Le pied de page a trois sections, j'ai mis les trois pour la nomenclature...

Un essai ...

   With ActiveSheet
      .PageSetup.Zoom = False
      .PageSetup.FitToPagesWide = 1
      .PageSetup.FitToPagesTall = 1
      .PageSetup.LeftFooter = .Cells(2, "B").Value
      .PageSetup.CenterFooter = ""
      .PageSetup.RightFooter = ""
   End With
   Range("A1:R26").PrintOut Copies:=1, Collate:=True

ric

Merci Ric

ric