pb d'écriture dans un fichier txt.

[francois91]

Bonjours,
Je veux créer un fichier texte adapté à la fonction scripte de AutoCAD pour cela il faut une certainne mise en forme
tout d'abord les chiffres décimaux doivent s'écrire avec un . et non une , (9.1 et non 9,1)
et il ne doit y avoir d'espace inutile
Or les valeurs que je veux entrer sont dans un tableau excel et lorsque je tape
Print #1, Worksheets("page graphe").Cells(4, 18 + i)
un espace devant et derrière la valeur se créent (ex: 5 )
Si quelqu'un avait une idée pour modifier tout ça...
Merci d'avance

 

[RENAUDER]

Re : pb d'écriture dans un fichier txt.

Bonjour,

Tu peux essayer la fonction Trim qui supprime les espaces devant et derrière.

Print #1, Worksheets("page graphe").Trim(Cells(4, 18 + i))

Non testé dans ce contexte

 

[BOISGONTIER]

Re : pb d'écriture dans un fichier txt.

Bonjour

Sans format, il y a un espace devant (signe) ajouté par Print #1.
Il faut écrire avec un format:

Sub Essai()
Open "xx.txt" For Output As #1
Print #1, Format([A1], String(Len([A1]), "0")) &";"
Print #1, Format([A2], String(Len([A2]), "0"));
Close #1
End Sub

JB
Formation Excel VBA JB

 

[francois91]

Re : pb d'écriture dans un fichier txt.

Merci à tous les deux vos deux methodes fonctionnent.
Sinon personne n'a d'idée pour remplacer les , par des . ???

 

[BOISGONTIER]

Re : pb d'écriture dans un fichier txt.

Sub Essai()
ChDir ThisWorkbook.Path
Open "xx.txt" For Output As #1
Print #1, Trim(Replace([A1], ",", "."))
Print #1, Trim(Replace([A2], ",", "."))
Close #1
End Sub

JB

 

[francois91]

Re : pb d'écriture dans un fichier txt.

Merci pour vos conseils tout marche trés bien