Ouverture fichier CSV , probleme avec le delimiter

Question

Bonjour,

J essaie d ouvrir un fichier CSV avec VB6 dans une fenetre Excel mais il ne tient pas compte de mes options....

voici le code d ouverture :

    Call xlsPrint.Workbooks.Open(Text1.Text, False, True, 6, , , , , ";")
    
et voila le début du fichier CSV

-------------------------------------------------

Période de consommation;Période d'abonnement;Date émisson facture;N°Facture groupée;Nom de Titulaire;N° de Titulaire;N° de PF;Code Liste;N° de Ligne;Nom utilisateur;N° de Contrat;Unité d'oeuvre SFR;Type de facturation;Type d'appel;Origine;Destination;Numéro appelé;Numéro de service;Date de début;Heure de début;Durée réelle;Durée facturée;Nombre d'unités;Volume réel;Volume facturé;Numéro d'autorisation;Montant HT;

-------------------------------------------------


le probleme, c'est que il ne coupe que quand il y a une virgule. Il se fout de savoir si j ai précisé une séparateur particulier, il prend forcement la virgule.


Help ^^

merci

cs_casy · Answer

Essaye avec aç Call xlsPrint.Workbooks.Open(Text1.Text, False, True, 4)

Sinon ça peut venir de l'extension cvs. C'est un type qu'il connais donc il ne regared pas les autres arguments

---- Sevyc64  (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #

lilo44 · Answer

malheuresement, ca n'a aucune effet. 

Il coup quand meme quand il y a une virgule.

Exemple a la 2eme ligne : 

------------------------------------------------

01/10/2006 - 31/10/2006;"01/11/2006 - 30/11/2006";"02/11/2006";"aaaa";"bbbbbb";"ccccc";"ddddddddd";"HORS LISTE";"xxxxxxx";"MME xxxxxxxxxx";"CTE097";"COMMUNICATIONS DEPUIS LA FRANCE";"Communications au-delà de votre forfait principal";"Appel vers un portable";"-";"-";"xxxxxxxxxxx";"-";"27/10/2006";"12:13:43";"0:00:06";"0:00:06";"-";"-";"-";"-";"0,02 ?";

------------------------------------------------


Ca coupe la : 0,02 ?";  , après la virgule ..... Il garde comme séparateur la virgule !

cs_casy · Answer

Essaye en donnant .txt comme extension à ton fichier.

---- Sevyc64  (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #

cs_Jack · Answer

Salut
En effet, si tu ouvres un CSV en double-cliquant dessus, Excel gère mal les séparateurs.
Il vaut mieux lancer Excel puis faire Fichier, Ouvrir ...
Ou sinon, le fichier CSV que tu prépares sous VB6, utilise la virgule comme séparateur, comme ça tu n'auras plus de surprise.

Comme tu veux le faire sous VB6 dans un composant Excel :
Les langages VB6 et VBA se ressemblent :
Sous Excel, enregistre une macro pendant que tu fais, à la main, le Fichier, Ouvrir, ... puis regarde quelle code il a mémorisé dans la macro : Tu copies/colles ce code dans VB6 en l'adaptant à l'objet et ça devrait fonctionner.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on

cs_xeroc · Answer

Bonjour,

Après avoir eu le même problèeme en vba avec l'utilisation de la methode Workbooks.Open et un fichier csv ayant comme séparateur le ; ainsi qu'en lisant les réponse ci-dessous, j'ai fait un test en renommant simplement l'extension du fichier et en specifiant le point virgule pour l'argumant Format:=4. 
Et là, la conversion c'est faire correctement. 
C'est l'extension csv qui fou la merde. Il faut en utilisé une autre pour que ça fonctionne correctement. -> renommer l'extension du fichier avant de l'ouvrir.

Voila,
J'espere que ça aidera quelqu'un.

Ouverture fichier CSV , probleme avec le delimiter

5 réponses

Votre réponse

Discussions similaires