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
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