imprimer outes les feuilles sauf une

[Francis]

Bonjour le forum
J’ai cherché dans l’historique du forum et je n’ai pas trouvé ce cas.
Je désire imprimer toutes les feuilles d’un classeur sauf une.
Quelle est la phrase magique pour imprimer toutes les feuilles sauf la feuille ' tata '
Merci d’avance
Francis

 

[_Thierry]

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

Bon Samedi
@+Thierry

 

[francis]

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

 

[JeanMarie]

Bonjour

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

Public Sub Imprime()
Dim vfeuil As Worksheet
For Each vfeuil In Worksheets
   If (vfeuil.Name <> 'tata') and vfeuil.Visible Then vfeuil.PrintOut
Next
End Sub

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

@+Jean-MArie

 

[_Thierry]

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

 

[JeanMarie]

Re...

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

@+Jean-Marie