Conversion XLSX vers TXT

Bonjour

Pour continuer dans le petit fichier automatisé que m'a concocté gmb, j'aimerais que lorsque je clique sur le bouton Conversion TXT de la feuille Résultat, cela me fasse un fichier TXT reprenant toutes les données se trouvant dans la feuille de préparation.

Ce fichier TXT sera enregistré dans le répertoire de mon choix

Je joins le modèle du fichier txt voulu en pièce jointe

Merci

Cdt

Bonsoir

elle n'est pas de moi

Sub ZoneTexte6_Cliquer()

'sauvegarde dans fichier txt
Dim Range As Object, Line As Object
Dim TheText As String, Separator As String, ThePath As String
Dim TheFile As Variant
Dim L As Integer
Dim c As Byte
Dim Col As Byte

If MsgBox("Voulez-vous faire une sauvegarde des données ?" & vbCr & "Cela va durer quelques minutes", vbYesNo + vbQuestion + vbDefaultButton2, "Confirmation de Sauvegarde") = vbYes Then
    Separator = ";"
    Sheets("Préparation fichier DSI").Activate
    ThePath = ThisWorkbook.Path & "\BackUpTxt"
    TheFile = Application.GetSaveAsFilename(ThePath, "Fichier,*.txt")
    If TheFile = False Then Exit Sub

    On Error GoTo Out 'si le fichier est ouvert
    L = 1
    Col = 6
    Set Range = Sheets("Préparation fichier DSI").Range("A2:F" & Sheets("Préparation fichier DSI").Range("A65536").End(xlUp).Row)

    Open TheFile For Output As #1
    For Each Line In Range.Rows
        L = L + 1
        TheText = ""
        For c = 1 To Col
            If c <> Col Then
               TheText = TheText & CStr(Trim(Cells(L, c).Text)) & Separator
            Else
               TheText = TheText & CStr(Trim(Cells(L, c).Text))
            End If
        Next c

    Print #1, TheText
    Next
    Close
    Set Range = Nothing
    Exit Sub
Out:
    MsgBox "Il semble que le fichier soit déjà ouvert, donc mise à jour impossible", vbCritical, "Back up impossible"
End If
End Sub

Bonjour

Cela fonctionne

Merci

Cdt