Je cherche, je cherche et je ne trouve pas comment par macro commander une =
impression d'une m=EAme feuille en 2 copies mais que le pied de page soit d=
iff=E9rent d'une copie =E0 l'autre.
Exemple sur ma premi=E8re copie je voudrais : "Copie du demandeur" et sur m=
a deuxi=E8me copie : "Copie du receveur".
Je suis convaincue que c'est simple mais je ne suis pas assez dou=E9e pour =
le trouver seule.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Bonjour,
Cette procédure imprime la feuille active (celle affichée à l'écran) en 2 copies, mais avec des pieds de page différents. Évidemment, tu dois adapter ce que tu veux inscrire en pied de page pour chacune des feuilles...
'-------------------------------------------- Sub test()
With ActiveSheet For a = 1 To 2 Select Case a Case 1 With .PageSetup .LeftFooter = "Version vendeur" .CenterFooter = "Ce que tu veux" .RightFooter = "Même chose" End With Case 2 With .PageSetup .LeftFooter = "Version Acheteur" .CenterFooter = "Ce que tu veux" .RightFooter = "Même chose" End With End Select .PrintPreview 'après test, tu remplace par.PrintOut Next End With End Sub '--------------------------------------------
Cette procédure imprime la feuille active (celle affichée à l'écran)
en 2 copies, mais avec des pieds de page différents. Évidemment,
tu dois adapter ce que tu veux inscrire en pied de page pour
chacune des feuilles...
'--------------------------------------------
Sub test()
With ActiveSheet
For a = 1 To 2
Select Case a
Case 1
With .PageSetup
.LeftFooter = "Version vendeur"
.CenterFooter = "Ce que tu veux"
.RightFooter = "Même chose"
End With
Case 2
With .PageSetup
.LeftFooter = "Version Acheteur"
.CenterFooter = "Ce que tu veux"
.RightFooter = "Même chose"
End With
End Select
.PrintPreview 'après test, tu remplace par.PrintOut
Next
End With
End Sub
'--------------------------------------------
Cette procédure imprime la feuille active (celle affichée à l'écran) en 2 copies, mais avec des pieds de page différents. Évidemment, tu dois adapter ce que tu veux inscrire en pied de page pour chacune des feuilles...
'-------------------------------------------- Sub test()
With ActiveSheet For a = 1 To 2 Select Case a Case 1 With .PageSetup .LeftFooter = "Version vendeur" .CenterFooter = "Ce que tu veux" .RightFooter = "Même chose" End With Case 2 With .PageSetup .LeftFooter = "Version Acheteur" .CenterFooter = "Ce que tu veux" .RightFooter = "Même chose" End With End Select .PrintPreview 'après test, tu remplace par.PrintOut Next End With End Sub '--------------------------------------------
