XL 2013 fichier txt

Sub GénérerFichierTexte()
Fichier = ThisWorkbook.Path & "\" & "FichierTexte.txt"  ' Nom FichierTexte à modifier
If Len(Dir(Fichier)) > 0 Then
    Kill Fichier                                        ' Supprime le fichier s'il existe
End If
Open Fichier For Output As #1                           ' Ouverture fichier pour écriture
Tablo = [E2:X4]                                         ' Récupération des 3 premières lignes
For L = 3 To 1 Step -1                                  ' Pour les 3 lignes
    Chaine = ""
    For C = 1 To UBound(Tablo, 2)                       ' Et toutes les colonnes
        Chaine = Chaine & "," & Tablo(L, C)             ' Concaténér chaine
    Next C
    Print #1, Mid(Chaine, 2)                            ' Ecriture chaine sans la première virgule
Next L
Close #1                                                ' Fermeture fichier texte
End Sub

If Len(Dir(Fichier)) > 0 Then
    Kill Fichier                                        ' Supprime le fichier s'il existe
End If

Open Fichier For Output As #1                           ' Ouverture fichier pour écriture

Sub RechercheCSV()
Dim fichier As Variant, ligdeb%, derlig&, ub&, col1%, col2%, sep$, a(), x%, i&, texte$, col%, deb%, j%, n&
'---fichier CSV---
fichier = Application.GetOpenFilename("Fichiers csv (*.csv),*.csv")
If fichier = False Then Exit Sub
ligdeb = 2
derlig = 4
ub = derlig - ligdeb
col1 = 4
col2 = 24
sep = ","
ReDim a(ub) 'base 0
x = FreeFile
Open fichier For Input As #x 'ouverture du fichier en lecture séquentielle
Do
    i = i + 1
    Line Input #x, texte
    If i >= ligdeb Then
        texte = Replace(texte, ";", sep) 'remplacement du séparateur
        col = 0: deb = 0
        For j = 1 To Len(texte)
            If Mid(texte, j, 1) = sep Then
                col = col + 1
                If col = col1 Then deb = j
                If col = col2 Then Exit For
            End If
        Next j
        a(ub - n) = Mid(texte, deb + 1, j - 1 - deb)
        n = n + 1
    End If
Loop While i < derlig
Close #x
'---fichier TXT---
fichier = Left(fichier, Len(fichier) - 3) & "txt" 'même chemin, même nom
x = FreeFile
Open fichier For Output As #x 'ouverture du fichier en écriture séquentielle
Print #x, Join(a, vbCrLf)
Close #x
MsgBox "Le fichier TXT a été créé..."
End Sub

Sub RechercheCSV()
Dim fichier As Variant, ligdeb%, derlig&, ub&, col1%, col2%, sep$, s$, a(), x%, i&, texte$, y$, deb%, fin%, n&
'---fichier CSV---
fichier = Application.GetOpenFilename("Fichiers csv (*.csv),*.csv")
If fichier = False Then Exit Sub
ligdeb = 2
derlig = 4
ub = derlig - ligdeb
col1 = 4
col2 = 24
sep = ";"
s = ","
ReDim a(ub) 'base 0
x = FreeFile
Open fichier For Input As #x 'ouverture du fichier en lecture séquentielle
Do
    i = i + 1
    Line Input #x, texte
    If i >= ligdeb Then
        texte = Replace(texte, sep, s) 'remplacement du séparateur
        y = Replace(texte, s, sep, , col1 - 1)
        deb = InStr(y, s)
        y = Replace(texte, s, sep, , col2)
        fin = InStrRev(y, sep)
        a(ub - n) = Mid(texte, deb + 1, fin - 1 - deb)
        n = n + 1
    End If
Loop While i < derlig
Close #x
'---fichier TXT---
fichier = Left(fichier, Len(fichier) - 3) & "txt" 'même chemin, même nom
x = FreeFile
Open fichier For Output As #x 'ouverture du fichier en écriture séquentielle
Print #x, Join(a, vbCrLf)
Close #x
MsgBox "Le fichier TXT a été créé..."
End Sub