Gix
XLDnaute Occasionnel
Bonsoir à tous,
Je voudrai savoir si une personne pourra m'aider à modifier cette macro,
en effet je souhaiterai imprimer par exemple la feuille 3 et 7 en deux exemplaire est-ce possible?
Merci à tous par avance de votre réponse
Gix
Je voudrai savoir si une personne pourra m'aider à modifier cette macro,
en effet je souhaiterai imprimer par exemple la feuille 3 et 7 en deux exemplaire est-ce possible?
Merci à tous par avance de votre réponse
Gix
Code:
Sub Imprime()
For I = 1 To Worksheets.Count
MyNom = Worksheets(I).Name
Select Case MyNom
Case "1", "3", "5", "7"
Worksheets(I).Activate
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Case Else
End Select
Next I
End Sub