Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If Workbooks.Count = 2 Then
Workbooks("superfichier.xlsx").Close False
Application.Quit
End If
End Sub
Private Sub Workbook_Open()
On Error Resume Next 'gestion error
Workbooks("superfichier.xlsx").Activate 'on tente activation
If Err > 0 Then 'si error on ouvre avec open
fichier = ThisWorkbook.Path & "\superfichier.xlsx"
Workbooks.Open fichier: Err.Clear 'ouvre et efface l'error
ActiveWindow.WindowState = xlMinimized 'on le réduit pour pas le voir
End If
ThisWorkbook.Activate 'on active ce fichier
ActiveWindow.WindowState = xlMaximized ' en grand
End Sub