sortir et quitter l'application

[kinel]

bonjour le forum

j'utilise la commande ci dessous pour quitter un classeur à but consultatif
j'ai donc mis ThisWorkbook.Close False pour ne pas sauvegarder

mais l'Application.Quit ne fonctionne pas

merci de votre aide
Kinel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Workbooks.Count = 1 Then
ThisWorkbook.Close False
Application.Quit
Else:
ActiveWorkbook.Close False
End If
End Sub

 

[pat01200]

Re : sortir et quitter l'application

Bonjour,

As-tu essayé tout simplement ça ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Close False
Application.Quit
End If
End Sub

 

[MJ13]

Re : sortir et quitter l'application

Bonjour Kinel, Pat

J'aurais bien vu:

application.displayalerts=false
If Workbooks.Count = 1 Then  ThisWorkbook.Close False: Application.Quit

 

[pat01200]

Re : sortir et quitter l'application

Oups, dans ma formule, le "End if" est bien sûr en trop...

 

[job75]

Re : sortir et quitter l'application

Bonjour,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
If Workbooks.Count > 1 Then Me.Close Else Application.Quit
End Sub

A+

 

[kinel]

Re : sortir et quitter l'application

bonjour à tous

merci pour toutes ces propositions

finalement cette solution fonctionne bien
j'ai utilisé des msgbox histoire de voir quelle commande était active
ces msgbox seront ensuite supprimés

Merci à tous
bonne journée
Kinel


Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Workbooks.Count <= 1 Then
MsgBox "boucle 1"
ThisWorkbook.Close savechanges:=False
Application.Quit
Else:
MsgBox "considere fichier ouverts " & Workbooks.Count
ThisWorkbook.Close True
End If
End Sub