Discussion :

[rom22]

Bonjour,
j'essaye de convertir un fichier .csv dans excel.
la conversion manuelle fonctionne normalement et je recupère bien mes 112 colonnes sans problème.
lorsque j' essaye de le faire par une macro le resultat ne comporte sur la première ligne que 9 champs de colonne complets le 10° est tronqué et sur les autres lignes je ne récupère que 60 colonnes.
existe il une limitation connue pour la méthode TextToColumns ou alors quelque chose à déclarer?
Merci d'avance.
ps: une des donnée à traiter est en colonne 84

[CodeFacile]

Bonjour ,

La méthode TextToColumns n'est pas adaptée pour traiter les fichiers CSV. Pour le peu que j'en connaisse elle s'utilise sur un fichier xls , hor le problème est de convertir le fichier csv dans un format compréhensible par Excel.

Je te conseille la méthode suivante.
Tu ferme ton fichier csv.
Tu te mets en enregistrement macro
Tu ouvres le fichier CSV en précisant le format : séparateur , ligne d'entête , le format éventuel de cetaines colonnes mal interprétées...
Tu arrête l'enregistrement.
Tu analyses le code générés ; Le but est de récupérer le code du style :

Code :

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

1
2
3
4
 
   Workbooks.OpenText Filename mon_fichier.csv, Origin:=xlWindows, StartRow:=  1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False , Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True

le problême consiste à adapter la syntaxe du opentext.

[rom22]

Bonjour,
Merci pour cette reponse mais pour moi lorsque j' enregistre l'ouverture de mon fichier .csv depuis excel dans la macro ca me donne toujours le même code à savoir:

Code :

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

1
2
3
4
5
6
7
8
9
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\xxx\My Documents\1-Exploit\1-P 1\1-suivi\1-Actions\Ag\CS\radio-relève\3\Releve de Août 09 Preully.csv"
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), ...........        1), Array(111, 1), Array(112, 1)), TrailingMinusNumbers:=True
    ActiveWindow.SmallScroll ToRight:=110
End Sub

c' est exactement le code que j' essaye d'integrer dans ma macro!
excel n'utilise pas la fonction OpenText mais je vais essayer quand même
Merci

[CodeFacile]

Essayes par macro le code suivant :

Code :

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

1
2
3
4
5
6
 
 
 Workbooks.OpenText Filename "C:\Documents and Settings\xxx\My Documents\1-Exploit\1-P 1\1-suivi\1-Actions\Ag\CS\radio-relève\3\Releve de Août 09 Preully.csv"
, Origin:=xlWindows, StartRow:=  1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False , Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True

Ton fichier à l'extension csv mais il est déja modifié par Excel.
Pour faire un test , ouvre le fichier avec wordpad ou autre pour regarder le format .

[rom22]

Salut
mon fichier est bien un fichier text séparer par des virgules,
je viens de l' ouvrir avec Wordpad
mais je pense que la config de mon excel 2003 n'est pas bonne!!!!
je ne comprend pas la différence de réponse entre l' action manuelle et la version macro?!
je viens d'essayer avec la méthode Opentext c' est encore pire il ne tient pas compte de l' indication "Comma:=true" donc tout dans la même cellule c' est de pire en pire!!!!

bonjour
Merci codefacile le pb semble lié à mon poste car ma macro fonctionne très bien sur le poste d'une collègue.
maintenant il me reste à trouver pourquoi pas sur le mien (on est sensé avoir des postes masterisé donc identiques!!!!!!).
peut tu me donner des pistes pour cette recherche?!

[aalex_38]

Bonjour à tous,

Peut être une info ici