VBA point en virgule dans bloc note
Bonjour,
Je programme actuellement en VBA un petit code me permettant d'écrire dans un bloc note des valeurs.
Pour cela j'ai un tableau excell avec une série de chiffre, par exemple :
distance hauteur
10,5 25,2
Puis je fais appel à un application nommé AfficheBloc lorsque que je clique sur : écrire dans le bloc note de la userForm correspondante.
Je dois alors écrire :
La hauteur est de 25.2; la distance au foyer de 10.5 /
le code ressemble a cela :
Sub AfficheBlocNote()
'définition Chemin
Dim chemin As String
Dim ret
chemin = "D:\tunnel.txt"
Dim Time As Integer
Dim distance
Dim hauteur
Time = FreeFile
distance = Worksheets("Feuil1").Cells(5, 3)
hauteur = Worksheets("Feuil1").Cells(5, 4)
Open chemin For Append As #Time
Print #Time, "La hauteur est de";hauteur;"; la distance au foyer de";distance ;"/"
Close #Time
ret = Shell("notepad.exe D:\tunnel.txt", vbNormalFocus)
End Sub
Mon problème c'est que dans excel le séparateur est une virgule. Du coup dans mon bloc note il n'est pas écrit : 10.5 mais 10,5
Changer cette virgule en opint est important pour moi. J'ai bien essayé de changer le séparateur par défaut de Excel (en faisant : Option --> international --> séparateur: . )
Mais lors de l'écriture dans le bloc note il met une virgule.
Quelqu'un saurai comment changer cette virgule en point ?
Je programme actuellement en VBA un petit code me permettant d'écrire dans un bloc note des valeurs.
Pour cela j'ai un tableau excell avec une série de chiffre, par exemple :
distance hauteur
10,5 25,2
Puis je fais appel à un application nommé AfficheBloc lorsque que je clique sur : écrire dans le bloc note de la userForm correspondante.
Je dois alors écrire :
La hauteur est de 25.2; la distance au foyer de 10.5 /
le code ressemble a cela :
Sub AfficheBlocNote()
'définition Chemin
Dim chemin As String
Dim ret
chemin = "D:\tunnel.txt"
Dim Time As Integer
Dim distance
Dim hauteur
Time = FreeFile
distance = Worksheets("Feuil1").Cells(5, 3)
hauteur = Worksheets("Feuil1").Cells(5, 4)
Open chemin For Append As #Time
Print #Time, "La hauteur est de";hauteur;"; la distance au foyer de";distance ;"/"
Close #Time
ret = Shell("notepad.exe D:\tunnel.txt", vbNormalFocus)
End Sub
Mon problème c'est que dans excel le séparateur est une virgule. Du coup dans mon bloc note il n'est pas écrit : 10.5 mais 10,5
Changer cette virgule en opint est important pour moi. J'ai bien essayé de changer le séparateur par défaut de Excel (en faisant : Option --> international --> séparateur: . )
Mais lors de l'écriture dans le bloc note il met une virgule.
Quelqu'un saurai comment changer cette virgule en point ?
