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 

Salut!!!!!
Pour ma part je pense que cela fonctionnerait mieux ainsi :
[CODE]
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

[/CODE]

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 !!!!

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