Sub Ouverture_Fichier()
Chemin = ActiveWorkbook.Path
Longueur_Chemin = Len(Chemin)
Chemin_Fichier = Left(Chemin, Longueur_Chemin - 4) & "Fichier.xls"
On Error GoTo Sortir
Windows("Fichier.xls").Activate
Exit Sub
Sortir:
MsgBox "Ouverture du fichier.", vbOKOnly + vbInformation, "Retour Classeur"
Workbooks.Open Filename:=Chemin_Fichier
End Sub