application.quit

[JEAN MICHEL]

bonjour a tous

dans un classeur j'utilise le code suivant
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Quit

End Sub

tout se passe bien lorsque je clique sur oui ou non de la boite de dialoqgue
a l'invitation d'enregistrer mais lorsque je clique sur annuler probleme
est il possible d'avoir que oui ou non dans cette boite

merci pour vos reponses et bonne soiree
jean michel

 

[Bernard]

Bonsoir Jean Michel

La ligne de commande "Application.Quit" ferme Excel après que le fichier soit fermé.

La boite de dialogue demande si tu veux enregistrer le fichier, rien à voir avec l'application !

Cordialement

Bernard

 

[JEAN MICHEL]

MERCI BERNARD
J'ai compris ce qui se passe donc il me faudrait La boite de dialogue demandant si je veux enregistrer le fichier avant la ligne"Application.Quit"
j'ai bien essayé avec "Private Sub App_WorkbookBeforeSave"mais rien ne se passe
bonne soiree

 

[petchy]

bonjour le forum

Jean Michel,essaye se code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
Application.Quit

End Sub

@ plus
petchy

 

[JEAN MICHEL]

bonjour le forum et merci petchy

mais avec ce code "ActiveWorkbook.Save"
je n'ai pas la boite de dialogue parceque je ne souhaite enregistrer a chaque fois

il faudrait que je puisse choisir l'option enregistrer ou pas et que le bouton annuler interrompt la procedure "Private Sub Workbook_BeforeClose(Cancel As Boolean)"avant la ligne "application.quit"

merci a tous

 

[petchy]

Re
essaye ça,je l'ait attribué à un commandbutton
Private Sub CommandButton4_Click()
rep = MsgBox("Enregistrer?", _
vbYesNo + vbQuestion, "JM?")
If rep = vbNo Then
Exit Sub
End If
ActiveWorkbook.Save
Application.Quit

End Sub

@ plus
Petchy

 

[JEAN MICHEL]

merci Petchy,je me suis inspiré de ton idee pour developpe ce code


Private Sub Workbook_BeforeClose(Cancel As Boolean)

rep = MsgBox("Enregistrer?", _
vbYesNo + vbQuestion, "JM?")
If rep = vbYes Then
ActiveWorkbook.Save

End If

ThisWorkbook.Saved = True

Application.Quit

End Sub