Bonjour,
C'est assez simple :
Private Sub Workbook_open()
'Premier$ = ThisWorkbook.Name
MonFichier$ = "C:\DossierX\SousDossier\MonBoTablo.xls"
Workbooks.Open MonFichier
'Workbooks(Premier).Activate
End Sub
Par défaut ce sera le classeur ouvert automatiquement qui sera actif (donc affiché).
Si tu veux gardé le premier classeur (l'appelant) actif, enlève les lignes mises en commentaire.
Bonne continuation
Rai