Mettre un message erreur en cas de mauvais chemin

Bonjour à tous,

J'ai réalisé un fichier qui permet d'éditer un planning.

Pour éditer ce planning je dois faire un copier coller du chemin sur lequel se trouve le fichier. Le problème c'est qu'il faudrait qu'Excel affiche un message d'erreur si le chemin ne correspond pas.

Mon code est le suivant :

Sub Fichier_copier()

fichier = ThisWorkbook.Name

chemin = Sheets("accueil").Range("D10")

' Ouvre le fichier

ChDir _

chemin

Workbooks.OpenText Filename:= _

chemin & "\XFICHIER" _

Pouvez vous m'aider ?

Merci

Bonjour,

Avec une fonction de contrôle :

Sub Fichier_copier()

    Dim Chemin As String

    Chemin = Sheets("accueil").Range("D10")

    If Existe(Chemin) = False Then MsgBox "Chemin erroné !": Exit Sub

End Sub

Function Existe(Chemin As String) As Boolean

    Dim Fso As Object

    Set Fso = CreateObject("Scripting.FileSystemObject")
    If Fso.FolderExists(Chemin) = True Then Existe = True

End Function