Discussion :

[Mic13710]

Bonjour le forum,

Je suis en train de développer une macro qui lit des données d'un fichier CSV pour les importer dans un fichier.

Les données sont séparées par un point-virgule. Malheureusement, j'ai une donnée numérique dont le séparateur est une virgule et à chaque fois que je veux récupérer la ligne de texte qui contient cette virgule, Excel me scinde la ligne en 2 car il considère la virgule comme un séparateur.

J'ai essayé plusieurs paramètres de lecture des données en indiquant que mon séparateur décimal est la virgule mais rien n'y fait.

Voici mon code :

Code :

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

Workbooks.OpenText Filename:=CheminLog, DataType:=xlDelimited, semicolon:=True, DecimalSeparator:=","

et voici un exemple de données à extraire avec en gras la donnée qui bloque :
08/05/2020 04:00;0.28;2,10;2.01;1;6.68;8.83;0;0;0;1

Ce que je voudrais c'est pouvoir extraire la chaine de texte sans qu'Excel ne fasse de conversion hasardeuse.

Il y a t'il une solution ?

Merci pour votre aide.

[Philippe Tulliez]

Bonjour,

Il y a t'il une solution ?

Comme tu n'as pas précisé le n° de version que tu utilises, il est difficile de t'apporter une réponse précise mais pour ce genre de travail, j'utiliserais "PowerQuery" nativement installé pour Office 365 et je pense 2016 et installable comme complément pour 2013 et 2010 (à télécharger)

[Mic13710]

Merci pour cette réponse.
Malheureusement, je ne peux pas préciser la version car c'est pour être utilisé sur différents postes de travail dont je suppose les versions sont différentes.
Je ne sais pas non plus si les utilisateurs ont un accès administrateur qui leur permettrait d'installer un logiciel tiers. Il me faut donc une solution exclusivement interne avec VBA

[Menhir]

j'ai une donnée numérique dont le séparateur est une virgule

Supprime le paramètre DecimalSeparator:="," et ajoute Comma:=False.

Il serait également préférable que tu renseignes le paramètre FieldInfo pour signaler que ce champ est Texte.
Lire ceci : https://docs.microsoft.com/fr-FR/off...books.opentext

Attention aussi avec les dates.
Il serait peut-être souhaitable d'ajouter le paramètre Local:=True.

[Mic13710]

Merci Menhir pour votre aide.

Malheureusement, le paramètre comma:=false ne change rien au résultat. Ce paramètre facultatif est de toute manière à false par défaut.

Si je remplace la virgule par un point, ça fonctionne.
J'ai bien tenté de faire un "machaine = replace(machaine ",", ".")" mais ça ne sert à rien puisqu'Excel a déjà fait un split de la chaine de texte à la lecture des données.

L'option fieldinfo est normalement là pour indiquer comment sont organisées les données à l'intérieur de la chaine. En mettant fieldinfo:=Array(1, xlTextFormat), rien ne change non plus.

Code :

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

Workbooks.OpenText Filename:=CheminLog, DataType:=xlDelimited, semicolon:=True, comma:=False, fieldinfo:=Array(1, xlTextFormat)

Il semblerait qu'Excel ne tienne pas compte des paramètres et n'en fasse qu'à sa tête. Je ne vois pas comment lui dire de prendre le texte brut sans rien convertir.

Merci pour les dates. De ce côté là, pas de souci.

[Menhir]

L'option fieldinfo est normalement là pour indiquer comment sont organisées les données à l'intérieur de la chaine. En mettant fieldinfo:=Array(1, xlTextFormat), rien ne change non plus.

Là, tu lui dis de mettre au format Text le premier champ.
Or le champ qui pose problème est à priori le troisième.


Je viens de tester en mettant ta ligne dans un fichier texte et en lançant :

Code :

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

Workbooks.OpenText Filename:="test.txt", DataType:=xlDelimited, semicolon:=True

J'obtiens bien

Code :

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

05/08/2020 04:00	0.28	2,1	2.01	1	6.68	8.83	0	0	0	1

Donc, il est possible que la vérité soit ailleurs comme disait Fox Mulder.

[Mic13710]

Je comprends bien, et devant la difficulté de rendre Excel passif vis à vis de ma chaine, c'est peut-être ce qu'il faudra que je fasse au final. Mais avant, je regarde avec la personne qui produit le csv si cette donnée ne peut pas être modifiée par autre chose sans virgule.

Mon but est de déconstruire la chaine par un split sans qu'Excel ne le fasse à ma place. Ca fonctionne très bien sans la virgule, dans ce cas Excel ne change rien. Si cette donnée peut être modifiée, alors mon problème sera résolu.

Je reviendrai dire ce qu'il en est.

[Menhir]

Je ne comprends rien à ta demande.

j'ai une donnée numérique dont le séparateur est une virgule et à chaque fois que je veux récupérer la ligne de texte qui contient cette virgule, Excel me scinde la ligne en 2 car il considère la virgule comme un séparateur.

Là, tu sembles dire que tu ne veux pas que la virgule sépare le 2 et le 1.

J'ai testé (voir ma réponse #6) avec ta ligne dans un fichier texte et un OpenText très simple et, visiblement, VBA ne sépare pas cette donnée puisque le "2,1" se trouve dans une cellule.
A priori, c'est ce que tu veux, non ?

Donc je ne vois pas où est le problème.

Mon but est de déconstruire la chaine par un split sans qu'Excel ne le fasse à ma place.

Donc tu veux découper le contenu de ce champ ou pas ???

[Mic13710]

OK Menhir, chez moi, cette chaine se casse à la virgule et c'est probablement du à ma manière d'aborder la chose.
J'explique ce que je fais.
J'ai un fichier csv dont je veux extraire les données pour certaines heures. Je recherche donc la donnée correspondante dans chaque ligne du fichier et quand je la trouve, j'extrais le texte que je splitte avec le point virgule comme séparateur pour retrouver toutes les données de la ligne.
Lorsque je remplace la virgule par un point, pas de problème, mes extractions sont correctes. Avec la virgule, le texte que je splitte s'arrête juste avant la virgule ce qui fait qu'il me manque toutes les données suivantes, y compris donc la partie décimale de la donnée avec virgule.
Je voulais faire cela pour accélérer la macro car j'ai pas mal de données à extraire, réparties dans plusieurs fichiers. De cette manière je n'avais qu'une seule donnée texte à extraire qu'il me suffisait de traiter par des split et à répartir ensuite dans des variables tableau. Cette méthode est normalement plus rapide que d'aller chercher chaque valeur dans le fichier.

Mais bon, je vois qu'elle est tributaire du comportement d'Excel vis à vis des données csv. Aussi, je vais modifier ma macro pour que le CSV soit splitté par Excel et que j'aille récupérer les données dans les cellules du fichier csv converti par excel. Ce sera un peu moins rapide mais tant pis si je ne peux pas faire autrement.

[Menhir]

OK Menhir, chez moi, cette chaine se casse à la virgule et c'est probablement du à ma manière d'aborder la chose.
J'explique ce que je fais.

J'ai fait le teste avec la ligne que tu as postée en #1 et le code que j'ai mis en #6 et je n'ai pas cette coupure comme le montre le résultat que je présente.

Si ces données sont générées par un autre logiciel, est-ce qu'il n'y aurait pas un caractère invisible parasite dans tes données. C'est un cas qu'on rencontre assez souvent dans ce forum.
Essaye de copier la ligne présentée en #1 plusieurs fois dans un fichier texte tout simple et de l'ouvrir avec le code que je présente en #6.

Si tu obtiens le même résultat que moi, c'est qu'il y a un parasite dans les données réelles.
Si tu as toujours le même problème, ça peut venir de tes options Excel ou des paramètres régionaux de Windows.

Une solution pourrait être d'ouvrir le fichier sans délimiteurs : une ligne par cellule (une seule colonne).
Faire ensuite le découpage avec un TextToColumns qui fonctionne avec une syntaxe proche de celle de OpenText.
Lire ça : https://msdn.microsoft.com/fr-fr/lib...3(v=office.15)

En dernier recourt, il te restera de lire ton fichier en séquentiel à coup de Line Input.
Lire ça : https://docs.microsoft.com/fr-fr/off...inputstatement