Pour exemple mon fichier TXT est sur d:\fichier.txt
ChDir "D:\"
Workbooks.OpenText Filename:="D:\fichier.txt", Origin:=xlMSDOS, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="!", FieldInfo:=Array(Array(1, 1 _
), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
J'espère que cela t'aideras !
Fred