Discussion :

[breizhcola29]

Bonjour le forum,

j'ai un petit soucis qui est celui-ci :
Je souhaite que lorsque l'utilisateur appuie sur la croix rouge, l'application entière se ferme , jusqu'à là j'ai réussi avec ce code :

Code :

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

1
2
3
4
5
6
7
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
        ActiveWorkbook.Save 'Sauve le classeur
        Application.Quit 'Quitte Excel
 
End Sub

Or à un moment, je fais un Unload Me afin de revenir sur le classeur actif mais il prend cette instruction comme une demande de "Quitter l'application". Est-il possible d'utiliser query_close juste pour la croix rouge et non pour un unload me ?

Cordialement,

[Gado2600]

Bonjour,

As-tu regardé du côté de :

Code :

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

Application.EnableEvent

Cordialement,

[Invité]

bonjour,
définis une variable qui change le comportement de UserForm_QueryClose

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Nofermer As Boolean
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 if  Nofermer= false then
        ActiveWorkbook.Save 'Sauve le classeur
        Application.Quit 'Quitte Excel
end if
End Sub
 
Private Sub Fermer_Click()
Nofermer = True
Unload Me
End Sub

[Invité]

Bonjour,

As-tu regardé du côté de :

Code :

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

Application.EnableEvent

Cordialement,

ça ne marche pas sur un UserForm!

[breizhcola29]

bonjour,
définis une variable qui change le comportement de UserForm_QueryClose

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Nofermer As Boolean
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 if  Nofermer= false then
        ActiveWorkbook.Save 'Sauve le classeur
        Application.Quit 'Quitte Excel
end if
End Sub
 
Private Sub Fermer_Click()
Nofermer = True
Unload Me
End Sub

Merci , sa marche parfaitement !

[Quentin77170]

Tu peux plus simplement utiliser la variable CloseMode qui va valoir automatiquement 1 quand tu fermes par un "unload me" et 0 quand tu fermes par la croix

Donc par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then 'si ça a été fermé par la croix, on demande confirmation puis on ferme l'application également, sinon on garde tout ouvert y compris le formulaire
    If MsgBox("Attention, cela va également fermer Excel, Continuer ?",vbYesNoCancel+vbExclamation,"Avertissement") = vbYes Then 
        ActiveWorkbook.Save
        Application.Quit
    Else 
        Cancel = 1 'on annule la fermeture du formulaire
    End If
End If
 
'On ne marque rien pour le cas ou CloseMode <> 0 car... on veut simplement que ça ferme le formulaire comme d'hab'
 
End Sub

Sinon ça marche ce qui a été proposé plus haut, mais ça fait doublon avec la variable automatique CloseMode... Pourquoi faire plus compliqué ? :p



Quentin