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 : Sélectionner tout - Visualiser dans une fenêtre à part
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