Bouton pour impression de plusieurs feuilles en meme temps

RENAUDER

Nous a quitté

Repose en paix

• 30 Novembre 2007

• #2

Re : Bouton pour impression de plusieurs feuilles en meme temps

Bonjour,
Peut-être cela
For I = 1 To Worksheets.Count
Worksheets(I).Activate
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=18, Collate _
:=True
Next I

 

Vote positif 0 Vote négatif

K

keurma

XLDnaute Occasionnel

• 30 Novembre 2007

• #3

Re : Bouton pour impression de plusieurs feuilles en meme temps

Merci pour votre aide mais que dois je modifier sur votre formule sachant que chaque feuille a un nom (janvier,fevrier,mars.....tous les mois de l'année), qu'il y a des feuilles avant et apres que je ne veux pas imprimer.

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 30 Novembre 2007

• #4

Re : Bouton pour impression de plusieurs feuilles en meme temps

Bonjour,

Il faudra compléter la ligne Case "Janvier", "Février", ... avec tous les mois

Code:

Sub Imprime()
    For I = 1 To Worksheets.Count
        MyNom = Worksheets(I).Name
        Select Case MyNom
        Case "Janvier", "Février", "Mars", "Avril" 
            Worksheets(I).Activate
            ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=18, _
                Collate:=True
        Case Else
            ' On n'imprime pas"
        End Select
    Next I
End Sub

 

Dernière édition: 30 Novembre 2007

Vote positif 0 Vote négatif

K

keurma

XLDnaute Occasionnel

• 30 Novembre 2007

• #5

Re : Bouton pour impression de plusieurs feuilles en meme temps

Merci ca marche nickel

 

Vote positif 0 Vote négatif