Discussion :

[cyrus87]

Bonjour,

J'aimerais importer le contenu des fichiers .txt sur un classeur excel via une macro mais une fois que j'ai importé tout les fichiers du répertoire je n'arrive pas à mettre fin à la boucle, il me met erreur d'exécution '76' chemin d'accès introuvable...
Pourriez-vous m'éclairer ?

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
Sub Imports()
    'Déclarations
    Dim Chaine As String
    Dim Ar() As String
    Dim I As Long
    Dim iRow As Long, iCol As Long
    Dim FileName As String
    Dim Path As String
    Dim Separateur As String * 1
    
    'Initialisations
    Separateur = ";"
    Cells.Clear
    iRow = 2
    iCol = 2
    Path = "F:\LOGS\*.txt"
    FileName = "F:\LOGS\" + Dir(Path)

'Boucle sur le répertoire
    While FileName <> ""
       Open FileName For Input As #1
       iCol = 1
       Line Input #1, Chaine
       
        'On parse le fichier dans un tableau
         Ar = Split(Chaine, Separateur)
                  
        'On écrit dans Excel
         For I = LBound(Ar) To UBound(Ar)
             Cells(iRow, iCol) = Ar(I)
             iCol = iCol + 1
         Next
         iRow = iRow + 1
        FileName = "F:\LOGS\" + Dir
        
       Close #1
    
    Wend
    
 End Sub

[Invité]

Bonjour

Ta variable FileName ne sera jamais vide.

Philippe

[Theze]

Bonjour,

Avec une fonction tableau de récup du chemin et noms des fichiers afin de scinder le code. Adapte la partie récupération des valeurs, je ne me suis pas penché dessus :

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
Sub Imports()
 
    Dim TblFichiers() As String
    Dim Ar() As String
    Dim Chaine As String
    Dim I As Long
    Dim J As Long
    Dim iRow As Long
    Dim iCol As Long
 
    'récupère les fichiers
    TblFichiers = RecupFichiers("F:\LOGS\", ".txt")
 
    iCol = 2
    iRow = 2
 
    'parcour le tableau de fichiers
    For J = 1 To UBound(TblFichiers)
 
        'ouvre en lecture le fichier texte
        Open TblFichiers(J) For Input As #1
 
            Do While Not EOF(1)
 
                'lecture ligne par ligne
                Line Input #1, Chaine
 
                 Ar = Split(Chaine, ";")
 
                'On écrit dans Excel
                 For I = 0 To UBound(Ar)
 
                     Cells(iRow, iCol) = Ar(I)
                     iCol = iCol + 1
 
                 Next
 
            Loop
 
        'ferme
        Close #1
 
        iRow = iRow + 1
 
    Next J
 
End Sub
 
Function RecupFichiers(Chemin As String, Ext As String) As String()
 
    Dim TableauFichiers() As String
    Dim Fichier As String
    Dim I As Integer
 
    'stocke les chemins des fichiers dans un tableau
    Fichier = Dir(Chemin & "*" & Ext)
 
    Do While (Len(Fichier) > 0)
 
        I = I + 1
        ReDim Preserve TableauFichiers(1 To I)
        TableauFichiers(I) = Chemin & Fichier
        Fichier = Dir()
 
    Loop
 
    RecupFichiers = TableauFichiers()
 
End Function

Hervé.

[cyrus87]

Merci pour votre aide et la rapidité de la réponse !