1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Sub message()
Dim Msg, Style, Title, Response
' Définit le message.
Msg = "Voulez-vous mettre à jour le Panning sur Internet?"
' Définit les boutons.
Style = vbYesNoCancel + vbQuestion
' Définit le titre.
Title = "Planning Internet - DjouConcept"
' Affiche le message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
********MyString = "Oui" ' Effectue une action.
Application.Run ("oui")
Else ' L'utilisateur a choisi Non.
********MyString = "Non" ' Effectue une action.
'C EST LA QU IL FAUT LE CODE POUR INTERROMPRE LA MACRO ET REVENIR SUR LA FEUILLE EN COURS
End If
End Sub |