VBA point en virgule dans bloc note
tut
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
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 ?
A voir également:
- VBA point en virgule dans bloc note
- Bloc note gratuit - Télécharger - Traitement de texte
- Comment inserer une video dans un power point - Guide
- Point de suite word - Guide
- Bloc-notes-Android - Télécharger - Agendas & Calendriers
- Point de restauration - Guide