Impression classeur sans deux feuilles

Bonjour a tous,

Voila je voudrais imprimer un classeur en faisant "fichier\imprimer\classeur entier" en enlevant deux feuilles.

Pour cela, j'ai masqué les feuilles avant impression

Or je n'arrive pas a les remettre apres l'impression

Avez vous une solution?

Merci

Amicalement,

Jérémié

Bonjour,

Je ne répond pas vraiment à ta question, mais

une autre façon de faire:

à la place du Private Sub Workbook_BeforePrint(Cancel As Boolean)

Tu peux mettre dans un module cette macro

touches raccourci (Ctrl+i)

Plus besoin de masquer les feuilles !

Sub Imprime() 'touches raccourci (Ctrl+i)
Dim Sh%, x%
    If MsgBox("Voulez vous imprimer le cartouche", vbYesNo, "Imprimante") = vbNo Then
          x = 3         'démarre l'ipression à la 3ème feuille
    Else
          x = 2         'démarre l'ipression à la 2ème feuille
    End If
    For Sh = x To Worksheets.Count
        With Worksheets(Sh)
            .PrintPreview           'aperçu
            '.PrintOut copies:=1     'imprime
        End With
    Next Sh
End Sub

édit: supprime cette ligne de test

.PrintPreview           'aperçu

et réactive celle-ci en supprimant l'apostrophe en tête

.PrintOut copies:=1     'imprime

Bonne journée

Claude

Merci pour ta réponse.

J'avais déjà étudier le problème de cette facon la.

Sauf que :

• L'utilisateur ne sera pas forcémement moi et ne connaitera peux être pas le raccourci (ctrl+i)
• Je n'ais pas mis de "For ... Next" car si l'utilisateur imprime en PDF, ca imprime page par page (2/3sec par page) et ensuite il faudra qu'il merge toutes ses pages. Je te dis pas le temps que ca prends quand il y a plus de 100 pages.

C'est pourquoi ton idée est bonne mais ne correspond pas à ma requète, cependant je te remercie.

Bonjour

Merci à tous !

Je crois que je vais abandonner cette idée!

Il n'y a peut être pas de solution à ce problème

Vous remerciant!