Sub Macro1()
Dim sPath As String, N_Fic As String
sPath = ThisWorkbook.Path & Chr(92)
N_Fic = "TEST_forum.txt"
Workbooks.OpenText Filename:=sPath & N_Fic, _
Origin:=xlMSDOS, StartRow:=7, 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), Array(5, 3), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1)), DecimalSeparator:=".", _
TrailingMinusNumbers:=True
Columns("E:E").NumberFormat = "dd mmmm yy"
End Sub