pb d'écriture dans un fichier txt.

RENAUDER

Nous a quitté

Repose en paix

• 27 Mars 2008

• #2

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 27 Mars 2008

• #3

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

 

Dernière édition: 27 Mars 2008

Vote positif 0 Vote négatif

F

francois91

XLDnaute Occasionnel

• 27 Mars 2008

• #4

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 . ???

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 27 Mars 2008

• #5

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

 

Vote positif 0 Vote négatif

F

francois91

XLDnaute Occasionnel

• 28 Mars 2008

• #6

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

Merci pour vos conseils tout marche trés bien

 

Vote positif 0 Vote négatif