Qutter et Sauvegarder

Résolu
Signaler
Messages postés
47
Date d'inscription
lundi 6 novembre 2000
Statut
Membre
Dernière intervention
3 mai 2005
-
Messages postés
282
Date d'inscription
lundi 29 septembre 2003
Statut
Membre
Dernière intervention
15 août 2012
-
Bonjour,

Je pose une question en quittant mon exe :
Private Sub Quitter_Click()
MsgBox "Voulez-vous SAUVEGARDER", vbYesNo
Unload Me
End Sub

Mais comment faire pour que celle-ci prenne en compte la réponse
Yes, sauvegarder mes valeurs puis quitter et Non quitter mon exécutable.
Merci

3 réponses

Messages postés
329
Date d'inscription
jeudi 20 novembre 2003
Statut
Membre
Dernière intervention
10 mai 2014
4
Salut

dim reponse
reponse =msgbox "Voulez vous sauvegarder?", vbyesno
if reposne=yes
'Alors sauvegarde
'Quitter
else
'Quitter
endif

J'ai pas las syntaxe exacte mais l'idée est là.

@+
LIM
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
282
Date d'inscription
lundi 29 septembre 2003
Statut
Membre
Dernière intervention
15 août 2012
2
encore plus simple



if MsgBox ("Voulez-vous SAUVEGARDER", vbYesNo) = vbyes then
Sauvegarder

endif



Unload Me
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
41
reponse = MsgBox "..........



if reponse = vbYes then

sauvegarde

end if


unload me