Discussion :

[js8bleu]

Bonjour à tous,

j'aimerai empêcher la fermeture du menu principal de mon application tant que l'utilisateur n'aura pas fermer sa session. Voici mon code (mais il ne marche malheureusement pas) qui se trouve dans le unload de mon menu principal :

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
18
 
    If MDIFormMenuPrinci.FermerSession.Enabled = True Then
 
        MsgBox "Veuillez fermer votre session avant de fermer l'application!", vbCritical, "Session Non Fermée"
 
        Cancel = False
 
        Exit Sub
 
    Else
 
        Unload Me
 
        Set MDIFormMenuPrinci = Nothing
 
        Cancel = True
 
    End If

Merci d'avance pour votre aide.

Cordialement.

[OhMonBato]

Tu veux fermer la session Windows en quittant l'application en fait, c'est bien ça ?

[js8bleu]

Bonjour OhMonBato et Merci pour ton intérêt. Non, je voudrai juste fermer la session de l'utilisateur dans mon application. J'ai un MDIForm comme menu principal avec un menu où j'ai "Fermer la session". Maintenant je ne voudrais pas que l'utilisateur quitte le logiciel sans avoir fermé sa session.

[OhMonBato]

Mais de quelle session parles tu ?

[ThierryAIM]

Si c'est fermer la session Windows, c'est vrai que c'est radical pour fermer ton programme !

Ce serait plus intéressant d'avoir le code de MDIFormMenuPrinci.FermerSession
on y verrait peut-être plus clair ....

[ProgElecT]

Salut

Moi j'utilise l'évènement MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) plutôt que l'évènement Unload

L'argument unloadmode renvoie les valeurs suivantes :

Constante Valeur Description
vbFormControlMenu 0 L'utilisateur a choisi dans le menu Système de la feuille la commande Fermeture.
vbFormCode 1 L'instruction Unload est invoquée à partir du code.
vbAppWindows 2 La session Microsoft Windows en cours prend fin.
vbAppTaskManager 3 Le Gestionnaire de tâches de Microsoft Windows ferme l'application.
vbFormMDIForm 4 Une feuille MDI fille se ferme en raison de la fermeture de la feuille MDI.
vbFormOwner 5 Une feuille se ferme en raison de la fermeture de son propriétaire.

De plus faire une recherche dans ce forum avec le mot QueryUnload 28 réponses dont la plupart résolu
cette discussion devrait t'intéresser
Fermeture feuille MDI