export fichier texte

[jeff77820]

Bonjour,A partir d'un macro VB j'exporte un tableau excel 2003 au format texte afin de l'exporter sur un os linux.Le problème est que chaque ligne comporte un CR et un LF.Pour l'os linux je n'ai besoin que des LF.

ci-dessous la macro
Sub Traitement()
Dim Plage As Range
Dim Fichier As String, Chaine As String
Dim L As Long
aze = vbCr ' retour chariot
Dim F As Integer, C As Integer
Set Plage = Sheets(1).UsedRange
Set Plage = Plage.Offset(1, 0).Resize(Plage.Rows.Count - 1)
F = FreeFile()
Fichier = Replace(ThisWorkbook.FullName, ".xls", ".data")
Open Fichier For Output As #F
For L = 1 To Plage.Rows.Count
Chaine = Plage.Cells(L, 1)
For C = 2 To Plage.Columns.Count
Chaine = Chaine & " " & Plage.Cells(L, C)
Next C

Print #F, Replace(Chaine, vbCrLf, vbLf)

Next L
Close #F

End Sub

Merci de m'apporter vos lumières.

 

[tototiti2008]

Re : export fichier texte

Bonjour jeff,

Bienvenue sur XLD

en effet, je n'ai pas réussi avec Print

peut-être :

Sub a()
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\testfile.txt", 2, True)
chaine = "toto"
For i = 1 To 3
    f.write chaine & vbCr
Next i
f.Close
Set f = Nothing
Set fs = Nothing
End Sub