sauver en csv

[alain]

lorsque je sauve mes fichiers excel en csv (office 2000), le logiciel génère des ' au début et à la fin de chaque ligne
comment éviter cela ?

 

[Staple1600]

Re : sauver en csv

Bonjour

Avec ce code il n'y a pas de virgule au début et à la fin

Sub csvfile()
 'SOURCE:http://www.ozgrid.com/forum/showthread.php?t=63300&highlight=csv+export
    Dim fs As Object, a As Object, i As Integer, s As String, t As String, l As String, mn As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\xltext.csv", True)
     
    For r = 2 To Range("A65536").End(xlUp).Row 'start in row 2 assuming row 1 is header
        s = ""
        c = 1
        While Not IsEmpty(Cells(r, c))
        's = s & Cells(r, c) & "," 'avec virgule
        s = s & Cells(r, c) & ";" ' avec point virgule
            c = c + 1
        Wend
        a.writeline s 'write line
    Next r
     
End Sub