1 2 3 4 5 6 7 8 9 10 11 12 13 14
| ' Transforme le fichier texte en version Excel
Workbooks.OpenText _
Filename:="V:\FINANCE\INFORMATIQUE\ZNHERN\test\EXPORT_DATA_MIK.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, 2), Array(2, 2), Array(3, 2), Array(4, 2), _
Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), _
Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 1), _
Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), _
Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), _
Array(25, 1), Array(26, 1), Array(27, 1)), DecimalSeparator:=".", _
TrailingMinusNumbers:=True
ActiveWindow.SmallScroll Down:=-1 |
Partager