Rassember 2 macros d'impression

[mcz29]

Bonjour, je dispose de 2 macros dans un même classeur

Une première qui imprime une page de garde avec le nom du client qui change à chaque impression (présente sur l'onglet"p_garde"). La voici :

Sub imprim_page_garde()

t = Range("m3").Value
For t = 3 To 4

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("m3").Value = t + 1

Next

End Sub


Une 2ème qui imprime des graph intéractifs sur onglet "graph"


Sub imprim_graph()

t = Range("b2").Value
For t = 3 To 4

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("b2").Value = t + 1

Next

End Sub

Mon souhait : combiner ces 2 macros pour que l'impression de la page de garde de monsieur x imprime également les graph de monsieur x puis page garde monsieur y avec graph monsieur y etc...

Merci

 

[wilfried_42]

Re : Rassember 2 macros d'impression

Bonjour

Juste pour un essai, sans fichier exemple c'est compliqué

sub imprim()
t = Range("m3").Value
For t = 3 To 4
with sheets("p_garde")
.printout
.range("m3").value = t +1
end with
with sheets("graph")
.printout
.range("B2") = t+1
end with
next i
end sub

 

[mcz29]

Re : Rassember 2 macros d'impression

merci wilfried_42 mais j'ai un message d'erreur. Ci-joint un exmple simplifié.

 

[mcz29]

Résolu : Re : Rassember 2 macros d'impression

J'ai revu ta macro wilfried_42 et j'ai enlevé le "i" avec next et.... çà marche !!

merci encore