Discussion :

[tardieub]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patbou]

bonjour,
la reponse est ici
http://www.developpez.net/forums/sho...onversion+date

[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.

[tardieub]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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