Private Sub Workbook_Open()
AssumerOuvert "Archive Vente.xlsx"
AssumerOuvert "document comptable.xlsx"
AssumerOuvert "Archive Achat.xlsx"
ThisWorkbook.Activate
End Sub
'
Sub AssumerOuvert(NomFic As String)
Dim WB As Workbook
On Error Resume Next
Set WB = Workbooks(NomFic)
If Err = 0 Then Exit Sub Else Err.Clear
Workbooks.Open ThisWorkbook.Path & "\" & NomFic
If Err Then MsgBox ThisWorkbook.Path & "\" & NomFic & " inexistant.", vbCritical, "Ouverture automatique d'un autre classeur"
End Sub