vérification et message erreur

Sub MaSub()
'... traitements avant ouverture
On Error Goto ErrOuvr
Workbooks.Open Me.Label3.Caption
On Error goto 0
'... traitements après ouverture
Exit Sub
ErrOuvr:
Msgbox "Impossible d'ouvrir le fichier - traitement arrêté"
end Sub

If Dir(Me.Label3.Caption) <> "" Then
    MsgBox "Le fichier " & Me.Label3.Caption & " existe !"
Else
    MsgBox "Le fichier " & Me.Label3.Caption & " n'existe pas !"
End If