Discussion :

[breizhgen]

Bonjour,

est-il possible de sélectionner l'ensemble d'un bloc de lignes depuis un fichier TXT et de le copier dans un classeur Excel.

La recherche des lignes de début et de fin du bloc est réalisé par les numéros de lignes issues d'une extraction antérieure.

Ces numéros ne sont donc pas inconnus.

Pourquoi la recherche par référence de ligne ? Tout simplement car ces blocs sont tous différents et il m'est compliqué de définir le début mais surtout la fin.

En vous remerciant par avance pour votre aide

[Franc]

Bonjour, voici une proposition.
Je pars de l'hypothèse que le numéro en début de ligne est séparé du reste de la ligne par un espace.
La macro demande 2 paramètres, le numéro de la première ligne et celui de la dernière.

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
36
37
38
39
40
41
42
43
44
45
46
Sub ExtraireBlocVersExcel(startLine As Long, endLine As Long)
    ' Spécifiez le chemin du fichier TXT
    Dim cheminFichierTxt As String
    cheminFichierTxt = "C:\Chemin\vers\votre_fichier.txt"
 
    ' Créer une nouvelle feuille dans le classeur Excel
    Dim classeur As Workbook
    Set classeur = Workbooks.Add
 
    ' Ouvrir le fichier TXT
    Open cheminFichierTxt For Input As #1
 
    ' Lire les lignes et écrire dans le classeur Excel
    Dim ligne As String
    Dim i As Long
    i = 1
 
    Do Until EOF(1)
        Line Input #1, ligne
        ' Extraire le numéro de ligne de la ligne actuelle
        Dim numeroLigne As Long
        numeroLigne = Val(Left(ligne, InStr(1, ligne, " ")))
 
        If numeroLigne >= startLine And numeroLigne <= endLine Then
            ' Étendre la plage dans le classeur Excel si nécessaire
            If i > classeur.Sheets(1).Rows.Count Then
                classeur.Sheets(1).Rows(i).Resize(1).Insert Shift:=xlDown
            End If
 
            ' Écrire la ligne dans le classeur Excel
            classeur.Sheets(1).Cells(i, 1).Value = ligne
            i = i + 1
        End If
    Loop
 
    ' Fermer le fichier TXT
    Close #1
 
    ' Enregistrez le classeur Excel
    classeur.SaveAs "C:\Chemin\vers\resultat.xlsx"
 
    ' Fermez le classeur Excel
    classeur.Close
 
    MsgBox "Le bloc de lignes a été extrait avec succès dans le classeur Excel.", vbInformation
End Sub

Tu peux ensuite l'appeler comme ceci par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
    ExtraireBlocVersExcel 20, 35
End Sub

[breizhgen]

Merci beaucoup !!