Problème date après conversion csv

Version imprimable

Bonjour à tous.

J'ai converti un fichier csv en formal excel via le code suivant:
Code:

1 2 3 4 5 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, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _ True
Malheureusement j'ai un problème au niveau des formats de date.

Certaines dates sont bien convertit, d'autre non.

Que faire...?

HELP ME PLEASE :oops::oops::oops:

Cdt

Tiviia

22/08/2013, 17h00
Marc-L

Bonjour,

Lire l'aide de la méthode TextToColumns concernant son argument
FieldInfo car aucune colonne dans le code n'est définie comme date !

Si le fichier s'ouvre bien manuellement dans une version française d'Excel et qu'il n'y a pas de souci de date,
le plus simple serait alors de commencer par là comme souvent indiqué sur ce forum ‼

Sinon ouvir le fichier csv via le Bloc-notes afin de vérifier si les dates y sont correctes ou pas …

Re Bonjour Marc-L

J'ai modifié mon code en précisant les colonnes qui sont des dates :

Code:

1
2
3
4
5
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, xlTextFormat), Array(20, xlDMYFormat), Array(25, xlDMYFormat), Array(28, xlDMYFormat)), TrailingMinusNumbers:= _
        True

Mais il y a toujours des dates qui ne sont pas convertis..

22/08/2013, 18h13
Marc-L

Et en l'ouvrant manuellement ?

Et la vérification des dates via le Bloc-notes ?
22/08/2013, 23h24
Tiviia

Bonsoir

En ouvrant avec le bloc note et en mode manuel via excel..les dates sont normales..

Je ne comprend pas pourquoi certaines ne sont pas convertis, elles restent en format texte (selon moi).

:(:cry::cry::cry::cry::cry::(
23/08/2013, 10h30
Marc-L

Et au fait c'est quoi le séparateur ?

Version d'Excel (devant être indiqué dans le titre du sujet comme préconisé sur ce forum … :roll:), française ou pas ?

__________________________________________________________________________________________
Il n'y a pas que les aigles qui atteignent les sommets, les escargots aussi mais ils en bavent !
23/08/2013, 10h32
Tiviia

Le séparateur c'est le point virgule

Code:

;

.

Et j'utilise EXCEL 2010!
23/08/2013, 10h36
Marc-L

Citation:

Envoyé par Marc-L

Version d'Excel française ou pas ?
23/08/2013, 10h56
Tiviia

oui Française
23/08/2013, 11h46
Marc-L

La vache, c'est comme pour l'ouverture manuelle et la vérification dans le Bloc-notes,
il faut tout demander deux fois avant d'obtenir une réponse ‼

Pour résumé, dans une version française d'Excel un fichier .csv délimité ; est converti sans souci en l'ouvrant manuellement.

Pourquoi donc ne pas avoir appliqué la solution donnée il y a déjà deux jours dans ton précédent sujet 8O
et pourtant rappelée ici même hier à 17h, la première réponse de ce sujet :

Citation:

Envoyé par Marc-L

Si le fichier s'ouvre bien manuellement dans une version française d'Excel et qu'il n'y a pas de souci de date,
le plus simple serait alors de commencer par là comme souvent indiqué sur ce forum ‼

Là on en est à la troisième fois … :roll:

Et une seule ligne de code suffit ‼

Et si tu avais commencé par une recherche, tu n'aurais pas eu besoin de poster ces sujets
car tu aurais trouvé la solution comme par exemple ici ou même là et encore dans celui-ci !

Deux jours …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

__________________________________________________________________________________________
Lire … C'est s'investir ! (Marc L)
23/08/2013, 13h38
Tiviia

Le fait d'ouvrir le fichier csv en mode :

Code:

Workbooks.Open Fich, Local:=True

Ne permet pas de faire des copier/coller !

J'ai bien lu et testé toutes tes remarques.

Malgrès ça le problème de date subsiste ...
23/08/2013, 13h54
Marc-L
Comment le deviner sans retour ?!

Qu'est-ce donc c'est histoire de copier / coller ?

De mon côté sur différents ordinateurs avec différentes versions d'Excel cela fonctionne sans aucun souci ‼

Autres astuces (mais tellement évidentes) :
- paramétrer chaque colonne au bon format avant l'importation peut aider aussi (méthode TextToColumns) …
- Ouvrir manuellement le fichier en utilisant l'Enregistreur de macros pour voir le code généré.
Sinon mettre le fichier csv en pièce jointe en indiquant un n° de ligne et la date importée au lieu de celle attendue …

__________________________________________________________________________________________
Si vous aviez le choix entre la fortune de Bettencourt et la paix dans le monde, de quelle couleur serait votre Ferrari ?!

voila code que j'ai trouvé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim derligt As Long
 derligt = ActiveSheet.Range("T" & Rows.Count).End(xlUp).Row
Range("$T$2:$T$" & derligt).Select
Selection.TextToColumns Destination:=Range("T2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, xlDMYFormat), TrailingMinusNumbers:=True
 
Range("$T$2:$T$" & derligt).Select
Selection.TextToColumns Destination:=Range("T2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, xlDMYFormat), TrailingMinusNumbers:=True

PS: il fonctionne !