Créer un message d'erreur

Bonjour à tous,

J'ai besoin d'un peu d'aide concernant la macro ci-desssous :

Sub Copie_des_stats()

Dim wbks As Workbook

Set wbks = Workbooks.Open("C:\Users\Frédérick\Desktop\" & Feuil2.Range("A1").Value & ".xls")

wbks.ActiveSheet.Cells.Copy Windows("Classeur1.xlsm").ActiveSheet.Cells

wbks.Close 0

End Sub

La valeur de la cellule A1 e la fuille2 sert à lancer ma recherche de fichier pour l'ouvrir puis copier/coller la feuille active.

Or, cette cellule est complété par un formulaire avec un Textbox. Je souhaiterai pouvoir afficher un message d'erreur si le fichier n'a pas été trouvé.

Pouvez-vous 'aider ?

Merci d'avance.

J'ai reçu de l'aide. Je laisse l'info qui peut servir.

Le code à retenir est donc :

Sub Copie_des_stats()

Dim wbks As Workbook, nom$

nom = "C:\Users\Frédérick\Desktop\" & Feuil2.Range("A1").Value & ".xls"

If Dir(nom, vbDirectory) = "" Then MsgBox "Le nom de fichier est erroné ou n'existe pas.": Jour.Show

Set wbks = Workbooks.Open(nom)

wbks.ActiveSheet.Cells.Copy Windows("Classeur1.xlsm").ActiveSheet.Cells

wbks.Close 0

End Sub