macro impression

[ploz]

bonsoir les gens,

je viens de me faire une macro pour l'impression de plusieurs sélection de ma feuille mais cela m'imprime toujours que la derniere sélection

voici le code

Sub imprime()
'
' imprime Macro
'

'
Range("D5:Z65,D66:Z127,D129:Z189,D192:Z203").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=18
End Sub


Merci de votre aide

 

[Chris401]

Re : macro impression

Bonjour

Peux-tu essayer :

ActiveSheet.PageSetup.PrintArea = "D5:Z65,D66:Z127,D129:Z189,D192:Z203"
ActiveWindow.SelectedSheets.PrintOut

Cordialement
Chris

 

[ploz]

Re : macro impression

Bonjour Chris,

cela à l'air de fonctionner

Merci