Gestion des erreurs #2

[Sophie11]

J'ai une macro qui va ouvrir un fichier spécifique, si ce fichier n'existe pas ma macro m'envoie sur l'éditeur.
J'aimerais créer un message box : "La macro va s'arreter"
je sais faire juste :

MsgBox "La macro va s'arreter"
Exit Sub

Je ne sais pas indiquer en vba "si la macro trouve pas le fichier, alors on affiche le msg box et on arrete la macro, sinon si le fichier est trouvé la macro continue à s'éxécuter."

Merci pour votre aide

 

[Pierrot93]

Re : Gestion des erreurs #2

Bonjour Sophie

essaye peut être ainsi :

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

bon après midi
@+

 

[RENAUDER]

Re : Gestion des erreurs #2

Bonjour,
Essaies le code ci-dessous (à adapter à ton cas)

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

 

[Sophie11]

Re : Gestion des erreurs #2

super merci !!!