Discussion :

[Tiviia]

Bonjour à tous.

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

Code :

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

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

Cdt

Tiviia

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

[Tiviia]

Re Bonjour Marc-L

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

Code :

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

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

[Marc-L]

Et en l'ouvrant manuellement ?

Et la vérification des dates via le Bloc-notes ?

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

[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 … ), française ou pas ?


__________________________________________________________________________________________
Il n'y a pas que les aigles qui atteignent les sommets, les escargots aussi mais ils en bavent !

[Tiviia]

Le séparateur c'est le point virgule

Code :

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

;

.

Et j'utilise EXCEL 2010!

[Marc-L]

Version d'Excel française ou pas ?

[Tiviia]

oui Française

[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
et pourtant rappelée ici même hier à 17h, la première réponse de ce sujet :

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 …

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 pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
Lire … C'est s'investir ! (Marc L)

[Tiviia]

Le fait d'ouvrir le fichier csv en mode :

Code :

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

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

[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 ?!

[Tiviia]

voila code que j'ai trouvé:

Code :

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

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 !