Discussion :

[Elstak]

hello,

j'ai un petit souci pour convertir une ligne d'un fichier texte.
voici à quoi elle ressemble :

"00000042,4978","00000005,2352","00000000,6366","00000001,8894"

je voudrais la mettre sous excel avec dans la colonne A "42,4978", dans la colonne B "5,2352" etc...

le probleme est que si j'utilise la virgule comme separateur, ,'ai dans la colonne A "42"" dans la colonne B "4978" ....

une idée?

[SfJ5Rpw8]

comment ouvre tu ton fichier si tu l'ouvre avec un code du genre :

Code :

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

1
2
3
4
5
 
 Workbooks.OpenText Filename:="D:\tmp\Nouveau Document texte.txt", Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False

( venant de l'enregistreur de macro) ..

ce n'est pas bon ?

[Elstak]

Oops, j'ai pas super bien tapé ma ligne d'exemple désolé.

C'est plutot ca :

PR","2006-04-23","00000049,0267","00000012,3845","

donc le code tu as a mis marche, je l'avais deja testé mais le petit hic est que dans la colone A j'ai PR" je voudrais PR sans le "

[SfJ5Rpw8]

ben elle est une fois le fichier chargé supprime les " de la 1° colonne par un recherche remplace...?

[Elstak]

Oue c'est vrai...

en fait c'est comme je pensais faire mais ca me parait beaucoup pour un seul petit fichier alors que les 40 autre que j'ai à convertir sont séparés par des ";"

Je pensais que pour les virgules il devait y avoir un moyen plus simple (c'est pour ca que je postais)

il aurait pas pu etre comme les autre ce c***** de fichier !!

enfin merci quand meme bbil

[ouskel'n'or]

J'arrive un peu comme un cheveu dans la soupe mais tu peux définir l'absence de guillemets dans ta commande en mettant "TextQualifier:=xlNone"

A tout hasard et pour autant que ça corresponde à un souci...

[Elstak]

Comme ca?

Code :

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

1
2
3
4
5
 
Workbooks.OpenText Filename:="D:\fichier.txt", Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone _
        xlDoubleQuote , ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
        , Comma:=True, Space:=False, Other:=False

j'ai juste repris mon code rpecedent et ajouté le xlnone mais il me met le tout en rouge