Sub Macro1()
ChDir [COLOR=red]ThisWorkbook.Path
[/COLOR] Workbooks.OpenText Filename:= _
[COLOR=red]ThisWorkbook.Path & [/COLOR]"\monfichier.txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
End Sub