Gestion de l'erreur dans une macro

F

Fab

Guest
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.
 
W

wally

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 970
Membres
101 852
dernier inscrit
dthi16088