Salut a tous

j'importe des donnees d'un fichier .csv et execute le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Range("A:A").Select
 
        Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
            Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
            :=Array(Array(1, 9), Array(2, 9), Array(131, 3), Array(132, 3), Array(133, 3), Array(134, 3), _
            Array(135, 3), Array(136, 3), Array(137, 3), Array(138, 3), Array(139, 3), Array(140, 3)), _
            TrailingMinusNumbers:=True
J'obtiens pour les colonnes de dates des problemes de formats. En gros jusqu'au 12 du mois je suis en format americain, au-dela en format francais.

Lorsque j'execute la commande equivalente manuellement (Data > Text to Column > etc.) tout est parfait...
Quelqu'un peut-il m'aider sur ce coup-la?
Merci d'avance.
Dav