comment mettre une date en pied de page à mon code

Bonsoir le forum,

j'ai ce code fais sur ce forum que je remercie, auquel je voudrais ajouté ceci:
un pied de page avec: Ici , labas , et la date du 26,27et 28 mai 2012
merci d'avance
jacky

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub ImprimTest(ByVal WsName As String) Dim Derlig As Long   With ThisWorkbook.Worksheets(WsName) Derlig = .Range("V" & .Rows.Count).End(xlUp).Row Set MaPlage = .Range("S1:AE" & Derlig) .PageSetup.PrintArea = MaPlage.Address .PrintOut Copies:=3, Collate:=True End With End Sub

---

L'enregistreur de macro pourra t'aider

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub ImprimTest(ByVal WsName As String) Dim Derlig As Long   With ThisWorkbook.Worksheets(WsName) Derlig = .Range("V" & .Rows.Count).End(xlUp).Row With .PageSetup .PrintArea = "S1:AE" & Derlig ' .LeftFooter = "" ' .CenterFooter = "" .RightFooter = "Ici , labas , et la date du 26, 27 et 28 mai 2012" End With .PrintOut Copies:=3, Collate:=True End With

---

re le forum, mercatog,

merci beaucoup, cela fonctionne
jacky