Discussion :

[nabelou1]

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 :

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

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

[pgz]

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

[nabelou1]

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

Code :

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

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:=","

[pgz]

Tu peux mettre un petit bout de ton .csv?

PGZ

[nabelou1]

en voici un bout

Code :

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

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;

[ouskel'n'or]

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

[pgz]

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

[ouskel'n'or]

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