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