Macro bouton imprimer

Bonjour,

Pourriez-vous svp cellule b4 ongle "pour impression" ajouter un bouton qui imprimerai tous les onglet sauf "pour impression" ?

Par avance merci, je ne sais absolument pas comment faire

Bonjour Lunissia,

Ci joint ton fichier, est ce ce que tu voulais ?

Salut tu pourrais me mettre le code stp ? je n'arrive pas a activé les macro

Bonjour,

Regarde ce post

Notamment la solution que je propose afin de pouvoir désactiver le message d'avertissement

Merci mais je trouve pas comment faire et le fichier et pas bloquer dans les propriété non plus

ca irai plus vite si j'avais le code

Bonjour le forum

Bonjour Lunissia, cousinhub............ Oupssss Bonjour Romain50

Je te donne ma version. Ici, j'ai mis Printpreview pour le code mais tu le retires et mets PrintOut en lieu et place.

J'ai intégré un ListBox ainsi si à l'avenir tu désires imprimer que certains documents, c'est faisable.

Voici le code et le fichier :

Code pour afficher l'UserForm

Private Sub CommandButton1_Click()
UserForm1.Show 0
End Sub

Code pour l'appli :

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CommandButton2_Click()
Dim I As Integer
For I = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(I) = True Then
    Sheets(ListBox1.List(I)).PrintPreview '.PrintOut
  End If
Next
End Sub

Private Sub UserForm_Activate()
Dim WS As Worksheet
For Each WS In Worksheets
  ListBox1.AddItem WS.Name
Next
End Sub

J'ai réussi a débloquer merci à tous