ouvrir un fichier csv en vba

bonjour tout le monde,
là j'ai un souce pour ouvrir un fichier csv en vba avec separateur ";"
mais le souci, c'est qu'il ne tiens pas compte du separateur et il met toute la ligne dans la premiere colonne.

voici mon code

Code:

---

1 2 3 4 5 6 7

Sub generation_IUE_PRIMES()   Workbooks.OpenText Filename:="C:\Documents and Settings\T05932\Bureau\Interfaces universelles\ouput primes.csv", StartRow:=1, _ DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter _ :=True, Semicolon:=True, DecimalSeparator:=","   End Sub

---

y'a til quelqu'un qui sache comment me sortir de là

merci d'avance

Bonjour.

En fait tu veux que le séparateur soit point-virgule?
Là tu as spécifié séparateur = ":"

Si ";" est l'option par défaut, tu ne t'occupes pas des propriétés relatives au séparateur.
Si ce n'est pas le cas :
tu laisses tomber semicolon (séparateur = ":")
Other = True
OtherChar = ";"

En gros.

PGZ

en effet mon separateur est le ";"
ça me donne le meme resultat avec le code suivant.

Code:

---

1 2	Workbooks.OpenText Filename:="C:\Documents and Settings\T05932\Bureau\Interfaces universelles\ouput primes.csv", StartRow:=1, _ DataType:=xlDelimited, TextQualifier:=xlNone, other:=True, Otherchar:=";", DecimalSeparator:=","

---

Tu peux mettre un petit bout de ton .csv?

PGZ

en voici un bout

Code:

---

1 2 3 4 5

Code Société;Partenaire;Date comptable;DEVISE;Code nature Assurétat;Territoire;Ss Catégorie Minist;Type de dommage;DROC.Comptence;Exercices < N-11;Exercice N-11;Exercice N-10;Exercice N-9;Exercice N-8;Exercice N-7;Exercice N-6;Exercice N-5;Exercice N-4;Exercice N-3;Exercice N-2;Exercice N-1;Exercice N;Exercice N+1;Code produit IARD;Réseau;Texte;BU;Société S/L;Type d'affaire;Ligne de produit;Produit ;Apporteur Gsfs;25;31122008;EUR;93100;FR;31000;X;2008;;;;;;;;;;;;3538 63;;;P080;COU;;Esdf;ZZ999Z;;L450;A453; qdfs;25;31122008;EUR;93100;FR;20100;X;2008;;;;;;;;;;;;955789 18;;;P105;COU;;Efd;ZZ999Z;;L340;A340; sfs;25;31122008;EUR;93100;FR;31000;X;2008;;;;;;;;;;-5 79;;;;;P080;COU;;Efs;ZZ999Z;;L472;A474; dfsf;25;31122008;EUR;93100;FR;35200;X;2008;;;;;1 41;;;;;;;;;;E030;COU;;Ef;ZZ999Z;;L660;A660;

---

Regarde ici, le dernier exemple.
Lis bien tout ;)
Bonne soirée

Hello.

J'ai fait un essai et cela marche très bien, avec un fichier .txt.

OpenText c'est pour ouvrir un fichier préfixé .txt
Si ton fichier a un préfixe .csv, utilises la méthode Open.

PGZ

je n'y comprends plus rien
il semble prendre comme separateur "," alors que dans mes options regionales, c'est le ";".
quand j'ouvre le fichier manuellement tout se passe bien sans boite de dialogue:evilred:

Citation:

---

Envoyé par pgz

J'ai fait un essai et cela marche très bien, avec un fichier .txt.
OpenText c'est pour ouvrir un fichier préfixé .txt
PGZ

---

Eh non, avec un séparateur "," on est obligé de passer par un fichier texte. Et comme un csv est un fichier texte, soit on renomme l'extention, soit on ne la renomme pas (juste un problème de version)
Maintenant tu fais comme tu veux. 8-)
Ceci dit,

Citation:

---

Si ton fichier a un préfixe .csv, utilises la méthode Open.

---

Non encore une fois, un csv attend un séparateur ";"
C'est pour ça que, si c'est une virgule... etc.
En outre, au moins en 2003, VBA ne reconnaissait pas les ";" (semicolumn) même si, quand on enregistre la macro, l'ouverture manuelle dans Excel fonctionne. :aie:

Si "on" se donne du mal pour préciser les choses, c'est précisément parce que ça nécessite d'être précisé. ;)

a defaut d etrouver une solution a mon probleme, je changer le format de mon fichier.
mais ça suis toujours interessé de savoir pourquoi ça coince

merci pour vos contributions

Citation:

---

Envoyé par ouskel'n'or

Eh non, avec un séparateur "," on est obligé de ...
Non encore une fois, un csv attend un séparateur ";"

---

J'ai du rater une marche :

Citation:

---

Envoyé par nabelou1

en effet mon separateur est le ";"

---

:king:

en fait ; comme il reconnaissait pas le ";",
j'ai voulu savoir quel caractere il attendais pour faire la saparation.

j'ai modifié mon csv en y inserant une virgule et il a bien fait la separation malgré que je lui ai specifié le ";" dans le code

@ pgz : Tu as raison, j'ai lu trop vite
Ce qui n'empêche qu'avec VBA2003, par macro, il est nécessaire d'ouvrir le csv en tant que txt.