Bonjour Fox et Yan,
Un essai qui devrait répondre aussi à la question :
Sub Imprimer()
Dim Msg As String, Style as String, Title As String
Dim MyValue As Byte
'Message de choix d'impression et d'enregistrement ou d'impression seule
Msg = 'Souhaitez-vous Imprimer et Enregistrer ce rapport ?' ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons.
Title = 'DECISION D'IMPRIMER ET D'ENREGISTRER OU D'IMPRIMER' ' Définit le titre.
MyValue = MsgBox(Msg, Style, Title)
If MyValue = vbNo Then
' L'utilisateur a choisi Non !
'Mettre ici le nom de la macro d'impression
Exit Sub
Else
' L'utilisateur a choisi oui !
'Mettre ici le nom de la macro d'impression
'Mettre ici le nom de la macro d'enregistrement
End If
End Sub
Cordialement
Bernard
Message édité par: CBernardT, à: 04/10/2005 10:00