Confirmation de sortie d'excel

Fermé
jalonene - 1 juin 2008 à 17:34
 jalonene - 2 juin 2008 à 22:28
Bonjour,
Je mets à disposition un fichier excel à des utilisateurs qui doivent effectuer une opération particulière, s'ils ne la font et quittent l'application, je souhaite faire apparaître une userform (cela je l'ai fait) avec un choix de confirmation de sortie. A la réponse "non" on retourne dans l'application. C'est cette commande que je ne connais pas (en fait c'est la même, je suppose, qu'excel propose quand on quitte sans avoir enregistré).
Merci pour votre aide
A voir également:

1 réponse

Réponse 1 / 1
frantzb Messages postés 33 Date d'inscription lundi 2 juin 2008 Statut Membre Dernière intervention 26 avril 2013 22
2 juin 2008 à 18:32
Bonjour Jalonene
Il faut activer la sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub
et placer dedans le code qui pose la question souhaitée
espéranbt avoir aidé,
frantzb
0
jalonene
2 juin 2008 à 22:28
Merci Frantzb de ta réponse, j'ai bien fait cela, mais c'est certainement le code que j'ai mis à l'intérieur qui ne va pas.
Voilà ce que j'ai écrit:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ([OK_sauvegarde] = "NON") Then
UserForm1.Show
End If
End Sub

L'UserForm1 pose la question de savoir si on veut quitter l'application, avec un bouton "oui" et un bouton "non".
pour le bouton "oui" pas de problème
Private Sub CommandButton1_Click()
Application.Quit
End Sub

Pour le bouton "non" c'est là le hic!
Private Sub CommandButton2_Click()
Cancel = True
' Unload Me
End Sub
Si je mets Unload me, je quitte excel, si je ne le mets pas je n'arrive pas à sortir de l'userform1 sauf en cliquant sur la croix rouge ce que je veux éviter.
Merci pour vos conseils.
0