Bonjour,

Je dispose de plusieurs fichiers texte (en réalité dpt mais c'est équivalent) que
je souhaite récupérer dans un fichier excel; Voici le code que j'ai et qui fonctionne à merveille (Merci Developpez.com !):

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
Sub Import()
Dim Fso As Object
Dim FsoRepertoire As Object
Dim FsoFichier As Object
Dim i As Long
Dim c As Integer
Dim strLigne As String
 
Dim str() As String
 
Set Fso = CreateObject("Scripting.FileSystemObject")
Set FsoRepertoire = Fso.GetFolder(Sheets("Macro").Range("E9").Value) 'nom du répertoire
 
 
 
'Boucle sur fichiers du repertoire
c = 2
For Each FsoFichier In FsoRepertoire.Files
    i = 1
    'Vérifie si le fichier a l'extension souhaité
    str = Split(FsoFichier.Name, ".")
    If str(UBound(str)) = "dpt" Then
        'ouvre le fichier
        Open FsoFichier.Path For Input As #1
        'Boucle sur chaque ligne du fichier
        Do While Not EOF(1)
            Line Input #1, strLigne
            'insere la ligne dans la cellule
            Sheets("Données brutes").Cells(i, c).Value = strLigne
            i = i + 1
        Loop
        Close #1
        c = c + 1
    End If
 
Next
 
Call Copie
 
 
 
End Sub
Cependant il me faut adapter ce code afin de ne sélectionner que la deuxième colonne de mes fichiers texte (la première étant identique à chaque fichier) !

Auriez vous une solution à me proposer ?


Bonne journée

Vincent