Discussion :

[Berliozz]

Bonjour,
Je veut écrire le résultat d'un calcul dans un fichier text. Ce résultat n'est pas entier et il apparait sous une forme qui le rend inexploitable ensuite. Voici un exemple qui illustre mon problème :

Code :

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

1
2
3
4
5
6
7
 
n=3.14
Set FSys = CreateObject("Scripting.FileSystemObject")
Set Nombre= Fsys.CreateTextFile("Virgule.txt",True)
With Nombre
     .WriteLine n
End With

Le fichier Virgule.txt contient 3,14 au lieu de 3.14 comme je le souhaiterais.
Existe t'il un moyen pour afficher correctement ce genre de nombre?

[SfJ5Rpw8]

avec replace :

Code :

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

1
2
3
4
5
6
7
 
n=3.14
Dim st
Set FSys = CreateObject("Scripting.FileSystemObject")
Set Nombre= Fsys.CreateTextFile("Virgule.txt",True)
st = replace(n,",",".")
 Nombre.WriteLine st

[Berliozz]

ça fonctionne, merci pour cette aide