Discussion :

[nibledispo]

Bonsoir à tous,

Lorsque je clique sur le bouton "quitter" de mon formulaire le programme effectue l'instruction "application.quit"
Il est alors proposé trois options "enregistrer", "ne pas enregistrer", "annuler".
Si j'ai des regrets et clique sur "annuler", je reste bien dans l'application mais je n'ai plus le formulaire à l'écran et ne peut donc plus rien faire.

Code :

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

1
2
3
4
5
Sub CmdQuitter_click() 
Set Pvt = Nothing
Application.Quit
If Not vbCancel Then ThisWorkbook.sortie  ' dirigé vers la remise à "true" des options Excel et Windows.
End Sub

Est-ce normal docteur ?

[patricktoulon]

Bonjour
une solution serait de sesubsituter acet evenement car je crois pas autrement la chose possible
mettre ca dans le code de ton bouton

Code :

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

1
2
3
4
5
6
7
8
9
Style = vbYesNo
    Response = MsgBox("ete vous sur de Vouloir fermer!!", Style)
    If reponse = vbYes Then
        With Application
            .DisplayAlerts = False
            'ThisWorkbook.Save   'on peut eventuellement enregistrer
            .Quit
        End With
    End If

Au plaisir

[nibledispo]

Bonjour Patrick,

voici le code que j'ai mis pour respecter les trois boutons proposés par l'instruction application.quit

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
19
Sub CmdQuitter_click() ' procédure pour quitter le programme
Style = vbYesNoCancel
    reponse = MsgBox("Voulez-vous enregistrer les modifications!", Style)
    If reponse = vbYes Then
        With Application
            Set Pvt = Nothing
            ThisWorkbook.Save   'on peut eventuellement enregistrer
            ThisWorkbook.sortie  ' dirigé vers la remise à "true" des options excel et windows.
            .Quit
        End With
    End If
    If reponse = vbNo Then
        With Application
            Set Pvt = Nothing
            ThisWorkbook.sortie  ' dirigé vers la remise à "true" des options excel et windows.
            .Quit
        End With
    End If
End Sub

Cela donne le résultat attendu.
J'ai mis l'instruction ThisWorkbook.sortie avant "quit" en laissant au sein de cette procédure "display.alerts = false"
en effet, si je la mets après "quit", elle est ignorée si j'en crois le pas à pas (F8). Ce qui semble logique.
Cela ne semble pas être un problème, car si j'entre ensuite dans un ficher vierge et tape n'importe quoi, le clic sur la croix (X) renvoie le message classique malgré la sortie précédente avec "display.alerts = false".

Ne serait-il pas préférable de sortir avec "close" ?

Merci.
Paul

[patricktoulon]

Bonjour nibledispo
Jeme suis apercu apres du manque du bouton annuler mais je n'ai pas corrigé pensant que pour toi ce serait facile de changer ça
L'essentiel c'est que tu ai compris la manoeuvre
Close ferme le classeur pas l'application
Tout depend de ce que tu veux en fait