macro fichier texte

[SEB13]

Bonjour
Je voudrais savoir si quelqu'un peut me donner un coup de main pour faire une macro qui transforme ma page excel en un fichier texte dont les collones sont séparées par des espace et que ce fichier soit du meme type qu'un word pad.
Et je voudrais savoir si la manip inverse( un fichier texte en excel est posssible?)
merci

 

[Staple1600]

Re : macro fichier texte

Bonjour

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 = 1 To Range("A65536").End(xlUp).Row
        s = ""
        c = 1
        While Not IsEmpty(Cells(r, c))
        s = s & Cells(r, c) & Chr(32) ' avec un espace
            c = c + 1
        Wend
        a.writeline s 'write line
    Next r
     
End Sub