1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
'Constante format
'xlGeneralFormat Général
'xlTextFormat Texte
'xlMDYFormat Format de date Mois-Jour-Année
'xlDMYFormat Format de date Jour-Mois-Année
'xlYMDFormat Format de date Année-Mois-Jour
'xlMYDFormat Format de date Mois-Année-Jour
'xlDYMFormat Format de date Jour-Année-Mois
'xlYDMFormat Format de date Année-Jour-Mois
'xlEMDFormat Date EMD
'xlSkipColumn Non distribuée
' Methode preconisee pour gere les colonnes d'un fichier CSV
Workbooks.OpenText Filename:="C:\Travail\Salome\Forum\Produits.txt", Origin _
:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, _
FieldInfo:=Array( _
Array(1, xlGeneralFormat),_
Array(2, xlTextFormat), _
Array(3, xlGeneralFormat),_
Array(4, xlGeneralFormat),_
Array(5, xlTextFormat),_
Array(6, xlGeneralFormat),_
Array(7, xlGeneralFormat),_
Array(8, xlGeneralFormat),_
Array(9, xlGeneralFormat), _
Array(10, xlGeneralFormat),_
Array(11, xlDMYFormat)), _
TrailingMinusNumbers:=True |
Partager