Impression des onglets pairs et impairs

[François]

Bonjour à tous.

Je souhaiterais pouvoir imprimer tous les onglets pairs puis les onglets impairs(ou seulement les onglets pairs ou seulement les onglets impairs) d'un fichier excel.

Merci pour votre aide.

Bonne journée.

 

[Zon]

Salut,

Ce genre de code te ferait il l'affaire ?

Sub impressionPaireouImpaire(J As Byte)
Dim I As Long
For I = 1 To ThisWorkbook.Worksheets.Count
If I Mod 2 = J Then Sheets(I).PrintOut
Next I
End Sub


Sub Impression()
impressionPaireouImpaire 0 'impression pair
impressionPaireouImpaire 1 ' impression impaire
End Sub

 

[François]

Tout à fait!

C'est exactement ce que je cherchais.
Merci pour ton aide.