Discussion :

[marinef]

Bonjour,

Lorsque je clique sur la croix rouge d'un fichier excel je voudrais ouvrir un userform qui me demande "Avez vous pensez à faire ça?" avec 2 boutons "oui" et "non".

Si on clique sur "oui", je veux que ça ferme l'excel.
Si je clique sur "non", je veux annuler la fermeture d'excel.

Comment dois je faire? Moi je pensais à ça:

Code :

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

1
2
3
4
5
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
    UserForm1.Show
 
End Sub

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
Private Sub CommandButton1_Click()
 
    Unload UserForm1
 
    ActiveWorkbook.Close
 
End Sub
 
 
Private Sub CommandButton2_Click()
 
    Unload UserForm1
 
    ActiveWorkbook.Close = False
 
 
End Sub

Mais ça ne marche pas...

[Didier Gonard]

Bonjour,

je veux que ça ferme l'excel.

Tu veux fermer l'application Excel ou juste le classeur considéré...

Sinon, dis ce qui ne marche pas qu'est-ce qui se passe ?

cordialement,

Didier

[marinef]

Je veux que ça ferme le classeur.

Ca ne marche pas car:
- qd je clique sur le bouton 1 il faut que je reclique une deuxieme fois pour que ça se ferme
- qd je clique sur le bouton 2 ça me ferme qd meme le classeur...

[DeaD78]

Salut !

Dans ThisWorkbook, tu peux mettre cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Fermer As Boolean
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Fermer Then
Cancel = True
End If
End Sub
 
Sub Quitter()
Fermer = True
Application.Quit
End Sub

Ensuite pour le bouton qui te permet de quitter, tu peux mettre ça :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
ThisWorkbook.Quitter
End Sub

Et pour l'autre :

Code :

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

1
2
3
Private Sub CommandButton2_Click()
MsgBox("T'as choisi de rester dans l'appli, nananère !")
End Sub

Il fallait donc juste mettre ton cancel à True

Bonne chance pour la suite !

[marinef]

Dans le workbook jai rajouté Userform1.show:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Fermer As Boolean
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
UserForm1.Show
If Not Fermer Then
Cancel = True
End If
End Sub
 
Sub Quitter()
Fermer = True
Application.Quit
End Sub

Dans les boutons:
Bouton pour fermer

Code :

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

1
2
3
Private Sub CommandButton1_Click()
ThisWorkbook.Quitter
End Sub

Bouton pour laisser ouvert

Code :

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

1
2
3
4
Private Sub CommandButton2_Click()
MsgBox ("Veuillez Saver!")
Unload UserForm1
End Sub

Or meme ac le bouton pour laisser ouvert, une fois le userform1 unloader, le classeur se ferme..

[Didier Gonard]

Bonjour,

Pas la peine de te casser la tête avec un USF, vois ainsi :

réagit à la croix de fermeture du Classeur et d'Excel, les répercutions diffèrent ensuite si OK.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim intReponse As Integer
'pour la fonction MsgBox, voir l'aide VBA ou les Tutos sur DVP
'pour le cancel et BeforeClose, voir le lien indiqué
 
intReponse = MsgBox("Avez-vous bien fait ce qu'il faut ?", vbYesNo, "Soluces Ormonth - DVP")
If intReponse = 7 Then Cancel = True
'http://silkyroad.developpez.com/VBA/EvenementsClasseur/#LII-5
End Sub

Les évènements du module objet ThisWorkbook par Silkyroad.

Tu peux décider aussi de fermer direct sans sauvegarder et sans message si besoin si la réponse est oui...

cordialement,

Didier