format flottant dans un fichier texte emis par vba excel

Bonjour à tous

je génére un fichier texte à partir d'une macro excel.
certains nombres doivent obligatoirement comporter 6 decimales aprés la virgule.
je sais faire lorsqu'il s'agit d'un format de cellule, mais pour un nombre Single affiché dans le fichier texte généré je ne trouve pas de solution dans les forums.

exemple de code:

Code:

---

1 2 3 4 5

dim x as single   x = 0.000000 ' vba me renvoie x =0#

---

idem si j'utilise format

Code:

---

x = format(x, "#0.000000")

---

merci à celui qui prendra en compte ma requéte

Bonnsoir,

0.000000 = 0

si tu tiens à le formater :

Format(x, "0.000000") renvoie bien "0.000000"

Reste bien évidemment ensuite à voir comment tu as formaté la cellule d'acueil elle-même (si tu l'envoies dans une cellule).

merci,
ok je sais pas si ça marche mais il me faut afficher un nombre à 2 chiffres avant la virgule dans un fichier texte

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

sub essai() Dim x as Single Dim fichier_texte as Variant Dim mot as String   Open fichier_texte For Output As #1   x = 0.000000 ' le code me renvoie 0# x = format(x, "0.000000") mot = "x = " & x Print #1, mot end Sub

---

et dans le fichier_texte je trouve x = 0
et je veux x = 0.000000
sinon mon fichier généré nefonctionne pas

c'est dur !!
Patnel

Tu es rigolo, toi !...

Tu dis que x est un single (donc un numérique), tu formates (obtiens une chaîne) et tu imprimes non la chaine, mais le numérique (qui este un single) !!!

Voilà ce qu'il faut faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Command1_Click() Dim x As Single Dim fichier_texte As String fichier_texte = "e:\bonvoila.txt" Dim mot As String Open fichier_texte For Output As #1 x = 0.000000 ' le code me renvoie 0# mot = "x = " & Format(x, "0.000000") Print #1, mot Close #1 End Sub

---

ou alors passer par une chaîne intermédiaire :
y = Format(x, "0.000000")
puis
mot = "x = " & y

Celà est évident !!!!

merci pour l'engueulade ça fait toujours plaisir :mouarf:
c'est vrai que si tout est toujours évident alors pourquoi ce forum

en tout cas ta solution marche et là je suis contant :lol:

donc voici le code qui fait ce que je veux :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub essai() Dim x As Single Dim fichier_texte As Variant Dim mot, x0 As String fichier_texte = "D:\PatrickBrunel\IVQ\etudes\S_Lalanne\QM_Profile\texte_x.txt" Open fichier_texte For Output As #1 x = 10 mot = "x = " & Format(x, "0.000000") Print #1, mot Close #1 End Sub

---

allez merci à plus
Patnel

Bonjour
une variante si j'ai bien compris

Code:

---

1 2 3 4 5 6 7 8

Sub EcrFichText() Dim x As Single Open "C:\fichier_texte.txt" For Output As #1 For Each c In Range("A2:A65000") Print #1, Format(c, "0.000000") Next c Close #1 End Sub

---

Abed_H