Discussion :

[djoumusic]

Bonjour,
j'ai une macro auto_close,
qui fait apparaitre une msgbox a la fermeture du fichier,
j'aimerai pouvoir, si l'utilisateur choisi "non", annuler l'auto_close et revenir sur
mon fichier ouvert...
quel code ecrire pour interrompre la macro...
ci dessous le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci !

[Duddy]

Bonsoir le forum,

Tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Response = 7 Then exit sub

A toi de contrôler si la valeur restituée par l'action sur le bouton est exacte.