Discussion :

[Polygos]

Bonjour
je deviens fou avec ce truc.

J'ai créé un code qui me donne des prix, au format 3,43 par exemple.
comme je dois le sortir en csv avec un "." pour la décimal pour l'importer dans la magasin, je dois le convertir au format point.
Mais ça ne marche pas !!
Pourquoi ?
on va chercher le prix ds la colonne 168 de ws1 et le reporter après muiltiplication par un coeff ds ws2:

Code :

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

1
2
3
         'Colonne C=3 "Price"
         ws2.Cells(j, 3) = ws1.Cells(i, 168) * 0.95
         ws2.Cells(j, 3).NumberFormat = "0.00"

de base la cellule (i,168) est au format excel avec une virgule; ex 3,45
et je ne peux pas la changer ds excel, j'ai besoin de garder le format général des décimales avec "," pour les autres valeurs à décimales
je veux donc juste que la cellule résultante passe en format "." et que je puisse ensuite convertir mon fichier .xlsm en .csv avec ce séparateur de décimal

où est l'erreur ?

D'ailleurs y a t il une manière de sortir directement le fichier en csv avec le codage suivant:
Décimale "."
Format UTF8
Séparateur des données ","
?
Merci de vos lumières

[mfoxy]

Bonjour,

Pour ce qui de sauver le fichier en utf8 séparateur ","
Patrice740 vous a fournis un code fonctionnel dans cette discution

https://www.developpez.net/forums/d2...ier-excel-csv/

Pour ce qui est des décimale "," vers "." , vous pourriez imaginer une feuille temporaire avec un copier coller de votre source {valeur uniquement, histoire de ne pas prendre d'éventuel formules) , vous y faite vos modifications de format, puis export vers csv avec la fonction de Patrice, et finalement suppression de la feuille.

Bav

[Polygos]

Bonsoir
c'est pas un peu compliqué ?
et si j'enregistrais directement au format csv, je pourrais peut être mieux maîtriser les "." ?

[mfoxy]

Bonjour,

Je ne crois pas en gros, pour moi, quand vous sauver une feuille au format csv, excel exporte les cellules comme si c'était du texte, en conservant la mise en forme de la cellule.

Par exemple, sur la feuille Excel contient une colonne au format date dd/mm/aaaa, le csv aura la même date mais au format texte soit "dd/mm/jjjj".

Il en va de même pour vos nombres décimaux.

Une autre solution serait peut-être aussi, sans passer par une feuille temporaire, modifier votre séparateur décimal, enregistrer le csv, remettre le format décimal d'origine ?

Ce ne sont que des idées, peut-être qq'un d'autre sur ce forum, pourra mieux vous venir en aide.

Bav

[Polygos]

Merci de l'essai
surtout que de base, je crée ce fichier en vBa et j'avais paramétré comme ça mais sans succès:
Dans la boucle sur i

Code :

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

1
2
3
        'Colonne O = 5 "price"
            ws2.Cells(j, 15) = ws1.Cells(i, 168) * 0.95
            ws2.Cells(j, 15).NumberFormat = "0.00"

puis je reprends toute la colonne pour la conserver d'un coup

Code :

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

1
2
3
4
    Columns("C:C").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _[ATTACH=CONFIG]557585[/ATTACH]
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

et bien j'obtiens ça:


Donc rien de bon.

Je remplace ensuite à la main (rechercher/remplacer) pour la colonne le "," par un "." et j'obtiens bien ça


Que je convertis ensuite en csv (via covertio l'occurrence) et là je perds tous mes "." qui redeviennent des ",":


ça semble bien bon et pourtant en cliquant ok j'obtiens bien ça, toujours des virgules..
Je veux des points ! ou est l'erreur ?

Sur un autre essai, j'ai obtenu ça à l'affichage d'ouverture de calc:


ça semble bon, hein ?
et bien quand on clique sur ok, le résultat c'est ça:


alors que la visualisation de OOCalc était bien avec des points !
je n'y comprends plus rien

[Patrice740]

Bonsoir
c'est pas un peu compliqué ?
et si j'enregistrais directemet au format csv, je pourrais peut être mieux maitriser les "." ?

Non c'est pas compliqué, c'est une procédure standard qu'il suffit d'appeler.
De plus ça semble compliqué mais on pourrait éliminer la moitié du code si tu répondais aux questions.

Je t'ai déjà dit que pour l'encodage UTF8, il existe 2 formats de fichiers : avec BOM et sans BOM (Byte Order Mark)
Tu n'as toujours pas précisé lequel des 2 tu souhaites utiliser !

Ceci dit il est très simple d'effectuer la conversion des nombres en ajoutant quelques lignes.

Ce qu'il y a de certain, c'est que tenter de convertir les nombres sur la feuille Excel n'est pas la bonne méthode.

[Polygos]

ce n'est pas ce que je fais
avec ou sans BOM, je ne sais pas ce que c'est, jamais eu besoin. Donc je n'ai a priori rien à changer. Suis je en UTF8 Bom ou non Bom, je n'en sais rienje ne vois que UTF-8 ds les choix et ne sais pas ou ça se change s'il le faut.

"Ceci dit il est très simple d'effectuer la conversion des nombres en ajoutant quelques lignes."

Et les formules pour changer le format par number format ne fonctionnent pas, je pense l'avoir dit.
voila pourquoi je galère..et que je suis la pour apprendre comment aire cette conversion par code

[Patrice740]

Re,

Réponse ici : https://www.developpez.net/forums/d2.../#post11487557