[VBA-E]Ligne separée par des virgules

**Elstak** · 25/04/2006, 08h38

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** · 25/04/2006, 08h43

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** · 25/04/2006, 09h14

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** · 25/04/2006, 09h54

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

**Elstak** · 25/04/2006, 10h03

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** · 25/04/2006, 10h10

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** · 25/04/2006, 10h20

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

**ouskel'n'or** · 25/04/2006, 10h50

Tu mériterais que

TextQualifier:=xlNone _
xlDoubleQuote

ET LA VIRGULE !

A+

**Elstak** · 25/04/2006, 11h01

Vasy ouskel fais toi plaisir !!

Mais j'avais deja testé avec le virgule. J'ai lereeur suivante :

"Attendu : parametre nommé" et il me surligne " xlDoubleQuote "

**ouskel'n'or** · 25/04/2006, 11h11

Là, tu mérites la corde !
Si tu mets xlNone, ne vas pas ajouter xlDoubleQuote !

Code :

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

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

J'ai jamais imaginé que tu puisses laisser les deux...

Je suis triste pour toi...

A+

**Elstak** · 25/04/2006, 11h49

Gnagnagna....

qu'est ce que j'en sais moi ! je pige rien au code je fais confiance à l'éditeur de macro

bon merci pour tout et adieu (je pars me pendre

)

**ouskel'n'or** · 25/04/2006, 11h56

Ça marche au moins ?

**Elstak** · 25/04/2006, 13h13

Me revoilà,

pouvais pas tester j'avais plus acces au reseau jusque maintenant

donc non ca me fou des " " " " partout

exemple

youhou","1","2"," j'ai des truc fantaisiste de du style youhou" en A
1" en B, "2" en C et un ptit " qui traine tout seul dans la derniere colonne (apers le dernier chiffre)

enfin tampi j'ai la solution c'est juste comme je l'ai deja dit, beaucoup pour 1 fichier mais bon y'a pas le choix