Ajouter un Userform pour spécifier un lien de dossier en VBA
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:
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:
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
