Discussion :

[yalefe]

bonjour

J'importe un fichier csv.

Dans une des colonnes figure des dates au format cad jj-mm-aaaa.

Je lance ma macro de suppression de certaines colonnes ( précédente demande ) et ensuite j'essaie de trier la colonne date.

Et c'est là que ca se gate....

la macro trie bien les dates mais effectue un changement sur le format de la date que je qualifierais de gros bazar

voici à quoi ressemble le code( enregistreur de macro)

Code :

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

1
2
3
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers

et voilà une partie du resultat :

test.xls

[diude54]

Tu peux ajouter ça en fin de macro:

Code :

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

Columns("B:B").NumberFormat = "dd/mm/yy;@"

[diude54]

C'est étrange, les cellule ne prennent le bon format que quand on les a sélectionnées à la main . Je n'ai pas trouvé de solution, je reviens si je trouve.

[aalex_38]

C'est drole quand j'ouvre un fichier Csv avec à l'interieur :

08-01-2009;a
08-01-2009;b
08-08-2009;c
13-08-2009;d
13-08-2009;e
08-09-2009;f
08-12-2009;g

Dans mon fichier, j'ai les toutes les dates comme ça :

08/01/2009
08/01/2009
08/08/2009
13/08/2009
13/08/2009
08/09/2009
08/12/2009

[yalefe]

Bon j'avance...

toujorus pas la solution mais je viens de decouvir que c'est la conversion qui crée ce désordre

Quand j'importe le fichier et que je le convertis manuellement, la macro trie bien les dates...
en revanche quand je convertis le fichier par macro, le tri des dates ne fonctionne pas bien ensuite

[yalefe]

ca y est ca fonctionne


en fait, il faut indiquer, lors de l'importation du csv, dans le tableau de tableau, que la colonne contenant la date est au format DMY

colonne 6 dans mon cas

Code :

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

1
2
3
4
5
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, Tab:=True, Comma:=True, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), _
Array(5, 1),Array(6, xlDMYFormat), Array(7, 1), Array(8, 1),  _
..................Array(56, 1)), TrailingMinusNumbers:=True