Bonjour a vous tous
Comment puis je modifié ce code (venant de l’aide) afin de lancer l’impression une fois que l’appui sur le bon bouton avant impression soit fait
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton4_Click()
Dim Msg, Style, Title, Response, MyString
Msg = "avez-vous cliquez sur le bon bouton ?"    ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Définit les boutons.
Title = "ATTENTION A L'OUBLI "    ' Définit le titre.
 ' Affiche le message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then    ' L'utilisateur a choisi Oui.
    MyString = "Oui"    ' Effectue une action.imprime 2 pages
Else    ' L'utilisateur a choisi Non.
    MyString = "Non" ' Effectue une action.quitter
End If
End Sub
Puis si clic « oui » lancer l’impression de type
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("Feuil1").PrintOut Copies:=2, Collate:=True
cordialement

Pascal