Convert xls vers txt

Bonjour,

Voir les 2 fichiers en pièces jointes.

Dans le but de créer une arborescence dans Windows Explorer, je désire convertir automatiquement les données d'un fichier Excel vers un fichier texte, selon les exemples donnés.

Y'a-t-il un moyen d'automatiser cela?

Merci de votre aide.

Sébastien

Bonjour,

une proposition

Sub aargh()
    Dim n(1 To 4), m(1 To 4)
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    fichier = "d:\downloads\testarbo.txt"
    Open fichier For Output As 1
    For i = 1 To dl
        For j = 1 To 3
            If Cells(i, j) <> "" Then
                n(j) = Cells(i, j)
                m(j) = Cells(i, 4)
                For k = j + 1 To 4
                    n(k) = ""
                    m(k) = ""
                Next k
                Exit For
            End If
        Next j
        ligne = ""
        For j = 1 To 4
            If n(j) <> "" Then ligne = ligne & IIf(ligne <> "", "\", "") & n(j) & " " & m(j)
        Next j
        Print #1, ligne
    Next i
    Close 1
End Sub

Merci de ton aide!