Discussion :

[Vincent32]

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

[jfontaine]

Bonjour,

En considérant que le séparateur de colonne est le ;

Code :

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

1
2
3
4
5
6
7
        Do While Not EOF(1)
            Line Input #1, strLigne
            str=split(StrLigne,";")
            'insere la ligne dans la cellule
            Sheets("Données brutes").Cells(i, c).Value = str(1)
            i = i + 1
        Loop

[Jean-Pierre49]

Bonjour
On peut aussi faire

Code :

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

1
2
3
4
5
6
7
8
9
10
 Do While Not EOF(1)
            Line Input #1, StrLigne
            'insere la ligne dans la cellule
            Sheets("Données brutes").Cells(i, C).Value = Split(StrLigne, ";")(1)
            i = i + 1
        Loop
 
 
'(1) Pour la seconde colonne du fichier texte
'(0) Pour la Première colonne du fichier texte

Bon courage

[Vincent32]

Merci beaucoup pour cette solution, en admettant que le séparateur soit un espace type tabulation et que je veuille récupérer la seconde colonne quels sont les modifs à apporter au code

[jfontaine]

pour la tabulation remplacer ";" par Chr(9)

[Vincent32]

Merci beaucoup pour ces solutions qui fonctionnent à merveille

Cordialement,

Vincent