Condition pour ouverture fichier txt

[mikael2235]

Bonjour,

Dans une macro, j'utilise le code suivant qui ouvre un fichier txt et le converti.
Mon problème est que si je n'ai pas le bon fichier dans mon repertoire, ma macro plante. Normal.

Je souhaiterai donc mettre une condition avec MsgBox qui s'affiche si la macro ne trouve pas le fichier.

'Stocke en variable le nom du programme
prog = [E8].Text

'Recupère les données du dernier passage, pour le programme sélectionné.
    ChDir "C:\Resultat_VSPC"
    Workbooks.OpenText Filename:="C:\Resultat_VSPC\" & prog & ".txt", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:= _
        False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _
        )

Merci pour votre aide.
Mikael