Convertir des points en virgules dans un fichier texte à l'aide d'un script VBA

Bonjour,

A partir d'un programme VBA en lien avec une feuille Excel, je crée un fichier texte où le séparateur décimal est la virgule.
En effet, dans mes options régionales, pour que ma feuille Excel fonctionne bien, je dois absolument avoir la virgule pour séparateur décimal.
Or, dans le fichier TXT créé, je dois convertir automatiquement (à partir de VBA) les virgules en points.

Comment faire ?

Merci d'avance pour votre aide.

Bonjour,

Comment est ouvert le fichier txt

EDIT : Oups j'ai lu dans l'autre sens

essais quelques chose comme ca

Code:

---

replace(Cstr(Range("A1").value),",",".")

---

Le fichier texte est ouvert par la commande suivante :

Code:

---

Open filetosaveSansExtension + ".txt" For Output As #1

---

Et les données sont écrites dans le fichier à l'aide de la commande suivante :

Code:

---

1 2 3

For i = 1 To Npoints Print #1, CStr(Int(i)) & " " & CStr(FibreNeutre(i, 2)) & " " & CStr(FibreNeutre(i, 3)) Next i

---

Merci.

Merci Jérôme,

Désolé mais je dois absolument agir directement dans le fichier TXT, juste après sa création et non en amont dans le fichier XLS.

Donc, sauf erreur de ma part, ta proposition ne me convient malheureusement pas.

as tu essayé d'adapter ?

Code:

---

1 2 3

For i = 1 To Npoints Print #1, CStr(Int(i)) & " " & replace(CStr(FibreNeutre(i, 2)),",",".") & " " & replace(CStr(FibreNeutre(i, 3)),",",".") Next i

---

Ca fonctionne bien, merci Jérôme.