Impression classeur Excel

Question

Hello,

Pas moyen d'imprimer toutes les feuilles d'un classeur !!!

Pourtant, seule, le code fonctionne, mais inséré dans ma macro seule une page du classeur s'imprime...........c'est à n'y rien comprendre !!!!!

For Each w In Workbooks 
            If w.Name = "Plot.xls" Then
            GoTo suite
            Else
            w.PrintOut Copies:=nombre, Collate:=True
            End If
 Next

Z'avez une idée...?

Merci d'avance

petigeni · Answer

Salut!!!!!
Pour ma part je pense que cela fonctionnerait mieux ainsi : 

Dim w As Sheets
Dim cpt As Integer


'récupération des fenetres du classeur courant
Set w = Application.Sheets
'parcours des feuilles et impression
For cpt = 1 To w.Count
   If w.Name = "Plot.xls" Then
            GoTo suite
            Else
            w.PrintOut Copies:=nombre, Collate:=True
   End If
Next

91ced · Answer

Désolé mais ca ne fonctionne pas.
En modifiant légèrement pour que ça imprime, au final je n'ai toujours qu'un onglet !!!!

cs_bipou · Answer

bonjour

juste une petite modif a faire : 

For Each w In Workbooks 
            If w.Name =  "Plot.xls" Then
            GoTo suite
            Else
            w. Sheets. PrintOut Copies: =nombre, Collate:=True
            End If
 Next

Impression classeur Excel

3 réponses

Votre réponse

Discussions similaires