sortir et quitter l'application

P

pat01200

XLDnaute Occasionnel

• 3 Septembre 2013

• #2

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 3 Septembre 2013

• #3

Re : sortir et quitter l'application

Bonjour Kinel, Pat

J'aurais bien vu:

Code:

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

 

Vote positif 0 Vote négatif

P

pat01200

XLDnaute Occasionnel

• 3 Septembre 2013

• #4

Re : sortir et quitter l'application

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Septembre 2013

• #5

Re : sortir et quitter l'application

Bonjour,

Code:

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

A+

 

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 4 Septembre 2013

• #6

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

 

Vote positif 0 Vote négatif