Discussion :

[Patnel]

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 :

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

1
2
3
4
5
 
dim x as single
 
x = 0.000000
' vba me renvoie x =0#

idem si j'utilise format

Code :

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

x = format(x, "#0.000000")

merci à celui qui prendra en compte ma requéte

[ucfoutu]

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).

[Patnel]

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 :

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

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

[ucfoutu]

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 :

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

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 !!!!

[Patnel]

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

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

donc voici le code qui fait ce que je veux :

Code :

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

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

[Abed_H]

Bonjour
une variante si j'ai bien compris

Code :

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

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