Import CSV et Format DATE

Version imprimable

Bonjour à toutes et à tous,

dans un fichier CSV j'ai des dates au format dd/mm/aaaa,
lorsque j'importe ce fichier avec la commande

Code:

1
2
3
4
5
6
7
8
9
Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
         ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), 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), 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), Array(28, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True

dans mon fichier XL la date s'importe avec mm/dd/yyyy.
mon systeme utilise bien le mode "Français"

avez-vous des idées ?

Merci

Salut,

Tu importes toutes tes colonnes en format standard (1).
Change le 1 des colonnes dates en 4 pour les importer en jma.

Par exemple si la 4eme colonne est une date:

Code:

1
2
3
4
5
6
7
8
9
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 4), Array(5, 1), 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), 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), Array(28, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True

J'ai mis en gras/rouge/gros ce qui change.

08/03/2010, 16h24
jcderchain

Merci .

cela fonctionne correctement.
:ccool: