perte du zéro de fin dans le passge d'excel à un .txt

[Guest]

Bonjour, après avoir cherché dans les différents sujets je n'ai pas trouver de réponse à ma question.
Je passe d'un fichier excel à un fichier .txt mais je n'arrive pas à conserver les zéros de fin à l'écriture.
Ainsi une cellule où est écrite "1.300" s'écrit "1.3" dans le .txt alors que je voudrais conserver les zéros.
De même "0.0000" dans excel s'écrit "0" dans .txt.

Pour avoir le nombre de decimal désiré dans mes cellules j'utilise

Cells(p, 3).NumberFormat = "0.000"
Sheets("meo").Cells(p, 3).Value = ht_st

où ht_st est une variable contenant un nombre et p une variable incrémentée

pour écrire dans le fichier .txt j'utilise

Open reponse + ".meo" For Append As #1

puis dans un boucle incrémentant f

Print #1, Cells(f, 1); Tab(10); Cells(f, 2); Tab(20); Cells(f, 3)

Au risque de me répéter, j'aimerais écrire dans le .txt ni plus ni moin ce qui s'affiche dans excel; et sans perdre mes zéros de fin.

Merci d'avance. Bonne journée.

 

[OmaR]

Salut,

Et tu peux pas simplement enregistrer le fichier en .csv ?

 

[drul]

Merci OmaR de ta contribution ...

En plus conctructif:

Print #1, Cells(1, 1).Text; Tab(10); Cells(1, 2).Text; Tab(20); Cells(1, 3).Text

 

[Guest]

La réponse de Drul fonctionne. Merci pour la réactivité

 

[OmaR]

Merci OmaR de ta contribution ...

En plus conctructif:

Print #1, Cells(1, 1).Text; Tab(10); Cells(1, 2).Text; Tab(20); Cells(1, 3).Text

En quoi c'est pas contructif ? Il veut créer un fichier txt à partir d'un fichier Excel.
Plutôt que de se faire chier à faire du code vba pour transformer son fichier Excel en .txt, il suffit d'enregistrer en csv, et il aura le même résultat sans se faire chier...

 

[drul]

Ben de base je suppose qu'il est pas complétement idiot et qu'il a:
1°) soit besoin d'exporter uniquement une partie des données
2°) soit d'un format précis dans son fichier.txt.

Mais effectivement commencer par la solution la plus simple n'est pas faux. Excuse moi si je t'ai vexé. :spamafote:

 

[OmaR]

Il est pas forcément idiot, mais on ne pense pas forcément aux solutions les plus simples... donc je propose...
Ta réaction m'a un peu "choqué", c'est tout... Pas de quoi en faire un plat

 

[zeb]

plop.

 

[turlupin en ptard]

plop.

Euh tu veux dire quoi par la ?

Alors, au choix :

Plop, interjection courante à sens non défini.
Plop, surnom attribué à un petit programme informatique ayant pour but de figer une machine à distance (cf. fork bomb).
Kabouter Plop, héros de dessin animé belge.
Plop, est également une petite distribution de Linux.
Plop, est aussi une manière de dire bonjour à une personne dans le monde virtuel.

 

[zeb]

 

[drul]

Tiens pour moi Plop, c'était le bruit d'une goutte d'eau qui tompe. Raaaaaaaaaahhhh, je suis beaucoup encré dans la "vrai" vie, faut vraiment que je me virtualise un peu plus t1cable:

 

[zeb]