Bonjour,

Je me suis lancé dans un petit projet VBA pour me faciliter le travail au quotidien mais je rencontre un problème et je n'arrive pas à m'en sortir.

Je souhaite créer une Macro qui répète la même chose suivant le lien de dossier que je lui donne via un Userform.

Le travail qu'elle fait cette Macro :
Récupérer tous les fichiers .txt dans tous les dossiers présents dans mon dossier de base donné par le lien via le userform, et me les afficher sous form d'un tableau.
Je me suis servi de la fonction "enregistrement de macro" pour avoir le code de base qui est le suivant :

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
Sub Macro1()
'
' Macro1 Macro
'
 
'
    ActiveWorkbook.Queries.Add Name:="OUTER_PANNEL", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Folder.Files(""\\yvsn0011\AFFAIRES-CFER\CR3\BODY_SIDES\4_TECHNICAL_PROCESS\4C_FLUID_MECHANICS\OUTER_PANNEL"")," & Chr(13) & "" & Chr(10) & "    #""Lignes filtrées"" = Table.SelectRows(Source, each ([Extension] = "".txt""))" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Lignes filtrées"""
    Sheets.Add After:=ActiveSheet
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=OUTER_PANNEL;Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [OUTER_PANNEL]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = False
        .ListObject.DisplayName = "OUTER_PANNEL"
        .Refresh BackgroundQuery:=False
    End With
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
End Sub
Et donc le lien que je veux pouvoir changer et faire le même travail est ici :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Source = Folder.Files(""\\yvsn0011\AFFAIRES-CFER\CR3\BODY_SIDES\4_TECHNICAL_PROCESS\4C_FLUID_MECHANICS\OUTER_PANNEL"")
Je vous remercie d'avance pour votre aide.
Et si vous avez besoin de précision je suis dispo.

Cordialement,
Youness