Application.Workbooks("NewWorkbook.xls").Close SaveChanges:=False
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Control Toolbox").Visible = True
Application.CommandBars("Drawing").Visible = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayAlerts = True
Application.ActiveWorkbook.Close SaveChanges:=False
End Sub
Application.DisplayFullScreen = False
Essai peut êtrela macro fait planter excel lorsqu'il n'y a pas d'autres classeurs excel d'ouverts.
ThisWorkBook.Close SaveChanges:=False
Application.ActiveWorkbook.Close SaveChanges:=False
ThisWorkbook.Saved = True