Bonjour

Je débute en VBA, je Souhaite consolider des fichiers TXT avec ce code, mais j'ai besoin de ne pas prendre en compte les 2 premières lignes et la dernière de chaque fichier texte, je n'arrive pas à trouver la syntaxe pour faire cela.

Voici une copie d'écran du fichier Txt d'origine

Nom : Txt.jpg Affichages : 878 Taille : 116,8 Ko

Pourriez vous m'aider a avancer.

Merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Test()
    Dim Fichier As String, Chemin As String
    Dim DernLigne As Long
    Dim Derlig As Long
    Dim i As Long
 
    'Répertoire contenant les fichiers
    Chemin = ThisWorkbook.Path
    Fichier = Dir(Chemin & "\*.txt")
 
    'Boucle sur les fichiers
    Do While Fichier <> ""
 
        i = Range("A65536").End(xlUp).Row + 1
        DernLigne = Range("A65536").End(xlUp).Row + 1
        ImportText Chemin & "\" & Fichier, Cells(DernLigne, 1)
 
        Fichier = Dir
    Loop
End Sub
 
Sub ImportText(NomFichier As Variant, Cible As Range)
    Dim QT As QueryTable
 
    Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & _
        NomFichier, Destination:=Cible)
 
    With QT
        'Définit les séparateur de colonnes dans le fichier txt
        .TextFileOtherDelimiter = ";"
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
End Sub