Conversion txt vers excel

Version imprimable

Bonjour

Je suis en train de faire une macro dont le depart est une conversion d'un fichier txt en plusieurs champs grace à ces lignes:
Code:

1 2 3 4 5 6 Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _ Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo:= _ Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _ DecimalSeparator:=".", TrailingMinusNumbers:=True
Le probleme c'est que jai un champ avec une date et que il inverse le jour et le mois , exemple

dans le fichier texte 04/10/2007
dans le champ apres conversion 10/04/2007

et a partir de l'enregistrement du 13/10/2007 00:00 il remet dans le bon sens!

Je comprend pas surtout que ce n'est pas le format des cellules qui change mais bien la date.

Merci d'avance

19/10/2007, 18h12
patbou

bonjour,
la reponse est ici
http://www.developpez.net/forums/sho...onversion+date
21/10/2007, 10h28
tardieub

Bonjour

Tout d'abord merci pour cette reponse rapide
En effet c'est le même type de probleme mais je ne vois pas vraiment comment modifier mon code pour l'adapter à votre solution.

Bonjour

Cela semble résolu avec ce code généré par l'enregistreur en précisant que la deuxieme colonne de champ est un format date.

Code:

1
2
3
4
5
6
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo:= _
Array(Array(1, 1), Array(2, 4), Array(3, 1), Array(4, 1), Array(5, 1)), _
DecimalSeparator:=".", TrailingMinusNumbers:=True