Discussion :

[jacfld49]

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

[mercatog]

L'enregistreur de macro pourra t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jacfld49]

re le forum, mercatog,

merci beaucoup, cela fonctionne
jacky