Private Sub Workbook_Open()
Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False
objExcel.EnableEvents = False
End Sub
/code]
Ne pas oublier ceci :
[code=VB]Private Sub Workbook_BeforeClose(Cancel As Boolean)
objExcel.DisplayAlerts = True
objExcel.EnableEvents = True
End Sub