imprimer outes les feuilles sauf une

Bonjour Francis, le Forum

Tu peux avoir une approche par boucle toute simple comme ceci :

Sub PrintOutAllSheets()
Dim WS As Worksheet

    For Each WS In ThisWorkbook.Worksheets
&nbsp; &nbsp; &nbsp; &nbsp; If WS.Name <> 'Zaza' Then WS.PrintOut
&nbsp; &nbsp; Next
&nbsp; &nbsp;
End Sub

Cliquez pour agrandir...

Bon Samedi
@+Thierry

Boujour Thierry et le forum
Merci Thierry et bravo pour ta rapidité
Francis

Bonjour

je m'étais excercé à réaliser le code, perso j'avais ceci

Je n'ai pas utilisé le ThislWorkbook.Worksheets, le fallait-il ?

@+Jean-MArie

Bonjour Jean-Marie, re Francis, le Forum,

Pour Jean-Marie, non ce n'est pas indispensable de préciser 'ThisWorkBook' en fait c'est une habitude que j'ai prise en ce moment car je travaille pas mal sur des développements de multi-UserForms qui ouvent et travaillent sur des classeurs différents, alors 'ThisWorkBook' me permet d'éviter d'avoir des surprises et d'aller travailler sur le classeur actif (par défaut lorsque non précisé)... Donc dans le cas de Francis ce n'était pas obligatoire si il ne travaille pas en multi-classeurs ouverts.

Sinon pour ta syntax, '(vfeuil.Name <> 'tata')' je préconise perso de ne pas utiliser les parenthèses, je ne sais pas si c'est plus une question d'habitude mais c'est comme les message box, je préfère de loin :

MsgBox 'Bonjour XLD'

que

MsgBox ('Bonjour XLD')

Et si je crois bien me souvenir j'avais lu dans les méandres du net que c'était conseillé par je ne sais plus quel grand nom, ptet bien 'L.L.' qui nous fait l'honneur de passer ici

Bon Samedi à Toi jean-Marie, et à Francis aussi et à tout les XLDiens et XLDiennes

@+Thierry

Re...

Thierry merci pour ces infos, et bonne fin de journée à toi.

@+Jean-Marie