Private Sub Workbook_Open()
GoTo debut
fin:
' si fichier non trouvé à l'emplacement habituel, tout se referme
ActiveWindow.Close
debut:
On Error GoTo fin
' ci-dessous, adapte en fonction de l'endroit où est sauvegardé ton fichier
Workbooks.Open Filename:= _
"C:\Documents and Settings\Mes documents\nom du fichier.xls"
End Sub