Discussion :

[jumiara]

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.

[jfontaine]

Bonjour,

Comment est ouvert le fichier txt

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

essais quelques chose comme ca

Code :

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

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

[jumiara]

Le fichier texte est ouvert par la commande suivante :

Code :

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

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

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

Code :

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

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

Merci.

[jumiara]

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.

[jfontaine]

as tu essayé d'adapter ?

Code :

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

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

[jumiara]

Ca fonctionne bien, merci Jérôme.