Discussion :

[HADERY]

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

[marot_r]

Bonjour.

Pas testé mais c'est probablement quelque chose comme :

Code :

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

NomTonForm.NomTonChamp.Value

donc le code devrait ressembler à cela :

Code :

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

1
2
ActiveWorkbook.Queries.Add Name:="OUTER_PANNEL", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Folder.Files(""\\" & NomTonForm.NomTonChamp.Value & """)," & Chr(13) & "" & Chr(10) & "    #""Lignes filtrées"" =

Et je te recommande de remplacer ActiveWorkbook par ThisWorkbook qui ne change pas même si un autre classeur que celui où tu roules la macro est activé.

Enfin il est possible que ton code plante si la PowerQuery OUTER_PANNEL existe déjà, à valider.

A+

[HADERY]

Super, j'ai réussit.
Merci beaucoup de votre aide !!