mcz29
XLDnaute Occasionnel
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
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