Sub message()
'
' message Macro
'
'
Dim Msg, Style, Title, MyString
Msg = "Souhaitez-vous continuer?" ' Définit le message.
Style = vbYesNo + vbCritical ' Définit les boutons.
Title = "Validation requise" ' Définit le titre.
Response = msgbox(Msg, Style, Title)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
MyString = "Oui" ' Effectue une action.
Application.Run "'feuille journaliere.xls'!Backup"
Application.Run "'feuille journaliere.xls'!Cleaning"
Application.Run "'feuille journaliere.xls'!supprlignesvides"
Sheets("feuille journaliere").Select
Range("B2:J2").Select
Else ' L'utilisateur a choisi Non.
MyString = "Non" ' Effectue une action.
Sheets("feuille journaliere").Select
Range("B2:J2").Select
End If
Sheets("feuille journaliere").Select
Range("B2:J2").Select
End Sub[B][/B]