Sub OuvreSiPasOuvert()
' activer le fichier ==> sinon l'ouvrir
On Error Resume Next
Workbooks('simplex.xls').Activate
If Err <> 0 Then
fichier = 'c:\\simplex.xls'
Workbooks.Open Filename:=fichier
If Err <> 0 Then
[COLOR="Red"]MsgBox 'Le fichier ' & fichier & '' est introuvable'[/COLOR]
End If
End If
End Sub