Fermeture totale d'un classeur.

[néné06]

Bonjour à toutes et tous

Dans l'exemple joint, si je click sur "Annuler", le classeur se ferme, sans enregistrement, mais, chez moi, il me reste un classeur "ouvert" que je dois supprimer en cliquant sur la croix en haut à droite de ce classeur.
J'aimerai, lors du click sur "Annuler", me retrouver sur mon "Bureau" sans devoir fermer ce classeur restant.
Pour fermer mon classeur et me retrouver sur le "Bureau", j'utilise:
ActiveWorkbook.Close savechanges:=False
Mais il manque ???

D'avance Merci!!!

René

 

[gilbert_RGI]

Re : Fermeture totale d'un classeur.

bonjour,

il ne reste pas un classeur mais l'application excel

il faut donc fermer cette application

avec Application.Quit

 

[Lone-wolf]

Re : Fermeture totale d'un classeur.

Bonjour néné

Si tu veux rester avec Essai ouvert sans enregistrer les modifications, il faut que tu enlève cette ligne.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.Quit
End Sub

 

[gilbert_RGI]

Re : Fermeture totale d'un classeur.

Salut Lone-Wolf

ce n'est pas ce qui est demandé

le monsieur dit

"J'aimerai, lors du click sur "Annuler", me retrouver sur mon "Bureau""

Bonjour néné

Si tu veux rester avec Essai ouvert sans enregistrer les modifications, il faut que tu enlève cette ligne.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.Quit
End Sub

 

[néné06]

Re : Fermeture totale d'un classeur.

Re,

J'ai donc placé l'instruction:
Application.Quit
avant "ActiveWorkbook.Close savechanges:=False"
et le programme fonctionne comme je le voulais!

Merci à tous!!

René

 

[Lone-wolf]

Re : Fermeture totale d'un classeur.

Bonjour Gilbert

Alors j'ai mal compris