Gestion des erreurs #2

Dim monfichier As String
monfichier = "C:\MesDocs\Excel\classeur1.xls"
If Dir(monfichier) <> "" Then
    Workbooks.Open monfichier
Else
    Exit Sub
End If

Sub Teste()
    If (FichierExiste("C:\Excel\Eric.xls")) Then
        MsgBox "Je continue"
    Else
        MsgBox "j'arrête la macro ..."
        End
    End If
End Sub

Public Function FichierExiste(ByVal Nom As String) As Boolean
    Dim attrib As Integer
    On Error Resume Next
    attrib = GetAttr(Nom)
    If (Err <> 0) Then
        FichierExiste = False
    Else
        If ((attrib And vbDirectory) = vbDirectory) Then
            FichierExiste = False
        Else
            FichierExiste = True
        End If
    End If
End Function