Discussion :

[nono le golfeur]

Bonjour,

J'ai un problème concernant le format de date Francais/Americain, lors de l'ouverture d'un fichier csv par VBA.

Quand j'ouvre le fichier csv à la main et que je fais texttocolumn, la date est 05/11/2008 mais si je fais la même manip avec le VBA ca change en 11/05/2008.

J'ai essayé de deux façons :

Code :

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

1
2
3
4
5
6
Workbooks.OpenText ("\\CHEMINDACCES\NOMDUFICHIER.csv"), DataType _
:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Comma:=True, FieldInfo _
        :=Array(8, 4), TrailingMinusNumbers:=True
 
        Cells.EntireColumn.AutoFit
        Range("A1").Select

J'utilise

Code :

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

FieldInfo:=Array(8, 4)

pour mettre la date en format DMY. Encore une fois....rien .... ca se met en MDY

Et aussi :

Code :

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

1
2
3
Workbooks.Open ("\\CHEMINDACCES\NOMDUFICHIER.csv"), local:=False
 
' Puis Texttoclumn avec les même paramêtres que pour OpenText.

Je n'arrive pas à comprendre pourquoi, à la main ça fonctionne et en VBA non !! Pour l'instant j'ouvre tous les fichiers à la main, puis texttocolumn mais j'aimerai quelque chose d'automatisé !!!

Merci d'avance

[decondelite]

Quand tu ouvres tes fichiers "à la main" c'est quel code que tu exécute juste derrière?
Car là je mélange un peu tout, et bref j'ai envie de bien comprendre avant de dire des bêtises.

[nono le golfeur]

Je n'étais surement pas très claire dsl, quand je dis : "A la main", ça veut dire que je n'exécute aucun code.

Je double clique sur le fichier csv, puis selectionne la collone A et ensuite j'utilise l'outils text to column. Tout cela manuellement, pas d'intervention de code. Et dans ce cas ça fonctionne la date est en format DMY.

Mais si j'utilise un code pour ouvre mon fichier tel wue workbooks.opentext, ici la date passe en format MDY.

Merci, Ciao !

[nono le golfeur]

Je vais apporter moi même un réponse à ma discussion.

Apparemment ce problème est aussi connus de Microsoft puisqu'ils en parlent sur leur support :

http://support.microsoft.com/kb/833724/fr

Malheureusement, la solution proposée ne fonctionne pas chez moi.

Je ne suis pas rendu....

[decondelite]

Ce code c'est l'enregistreur de macros qui te l'a fourni?

[nono le golfeur]

Non je me suis aider de l'aide pour le Array(8,4) et puis j'ai souvent travaillé sur des .csv donc je le connaissais.