fermer un UserForm avec excel caché

[Danybrett]

Bonjour,

J'ai un fichier Excel qui, quand on l'ouvre, n'affiche que le Userform et cache le fichier Excel.

Mon problème est que si la personne ferme (avec la croix rouge en haut à droite) le Userform, le fichier Excel reste ouvert en tâche de fond sans que l'on puisse le stopper (il n’apparaît même pas dans les applications du gestionnaire de tâches).

J'ai réussi à trouver comment ouvrir ou fermer Excel si le UserForm est fermé.
Mais le souci c'est que je navigue entre plusieurs Userform et que je ferme le précédent après avoir ouvert le suivant, donc mon fichier Excel s'ouvre ou se ferme (suivant ce que j'ai décidé) dès que je change de Userform.

Y a t-il un moyen d'ouvrir ou fermer Excel Uniquement si la personne ferme le UserForm actif avec la croix et non dès qu'un "Unload me" est fait ?

J'ai essayé de faire un fichier Excel tout simple pour mieux comprendre mon problème

 

[Dranreb]

Bonjour.
Avez vous essayé en testant
If CloseMode = vbFormControlMenu Then ?

 

[Danybrett]

Salut Dranreb

Il faudrait que je l’intègre où ? (désolé je ne suis pas très bon avec les macros )

 

[Dranreb]

Dans la UserForm_QueryClose.
Où voudriez vous que ce CloseMode soit défini ailleurs ?

 

[Danybrett]

Ok j'avais fait ça. Mais ça ne marche pas, enfin ça fait rien

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
End If
End Sub

 

[Dranreb]

En effet vous n'y avez mis aucune instruction, donc ça ne fait rien, quelle que soit la façon dont la fermeture de l'UserForm a été engagée, que ce soit vbFormControlMenu, vbFormCode, vbAppWindows ou vbAppTaskManager.

 

[Danybrett]

Ok, je n'avais pas compris

Voila ce que j'ai fait:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then

'Application.Visible = True
'ou
'ActiveWorkbook.Close

End If
End Sub

Donc oui en effet avec les 2 instructions que j'ai mis en exemple ça fonctionne très bien.
Un grand merci à vous.