Planté si fichier introuvable

[Fab]

Bonjour,
La macro exécutée va entre autre ouvrir un autre classeur pour chercher la valeur d'une cellule et la stockée dans une variable.
Le chemin d'accès au fichier est indiqué dans la macro. Le problème est que si ce chemin d'accès est faux, la macro plante et tout s'arrete. Y-a-t-il un moyen de lui indiquer que si le chemin est faux, il doit attribuer un message spécifique à la variable (p. ex. : Var01 = "Fichier introuvable") ?

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 et le forum,

Regarde la réponse à ton message d'hier...


Slts

wally

 

[@Christophe@]

Bonjour,

Voici le code à remplacer:

If FileExists("C:\Sous_Repertoire\Fichier01.xls") = False Then MsgBox "Fichier introuvable!": Exit Sub
Workbooks.Open FileName:="C:\Sous_Repertoire\Fichier01.xls"
Sheets("Feuill3").Select
Range("E2").Select
Var01 = Range("E2").Value
ActiveWindow.Close


Et le module à ajouter:
Function FileExists(FileName As String) As Boolean
FileExists = Dir(FileName) <> ""
End Function


Bonne journée

@Christophe@

 

[Fab]

Resalut,
Merci à tous les 2, je vais essayer les 2 possibilités.