Gestion de l'erreur dans une macro

[Fab]

Bonjour,
Dans la macro suivante, un autre classeur est ouvert.
Actuellement, si le chemin d'accès est faux ou si le fichier recherché est absent, la macro plante.
Comment faire pour que dans ces 2 cas, il ouvre une MessageBox où l'utilisateur rentre manuellement la valeur pour la variable xxx.

Dim Var01
Workbooks.Open FileName:="C:\Sous_Repertoire\Fichier01.xls"
Sheets("Feuill3").Select
Range("E2").Select
Var01 = Range("E2").Value
ActiveWindow.Close

Merci d'avance.

 

[wally]

Bonjour Fab,

Essaye qqch du genre :

Dim Var01
Dim sFileName As String

sFileName = "C:\Sous_Repertoire\Fichier01.xls"

If Dir(sFileName) = "" Then
Var01 = InputBox("Veuillez entrer la valeur de la variable Var01:")
Else
Workbooks.Open Filename:=sFileName
Sheets("Feuil3").Select
Range("E2").Select
Var01 = Range("E2").Value
ActiveWindow.Close
End If


Slts

wally