'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) _
)