Discussion :

[modus57]

Bonjour,

La cellule B1 où l'on entre le chemin du dossier se nomme "Chemin" avec le code suivant :

Code :

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

1
2
3
4
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
    If Folder.Show <> -1 Then Exit Sub
    xDir = Folder.SelectedItems(1)
    ActiveSheet.Range("B1") = xDir

Code de la procédure événementielle de M. TULLIEZ :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("Chemin")) Is Nothing Then
        Application.EnableEvents = False
        On Error GoTo ErrorHandler
        Me.Range("tblSourceData").ListObject.QueryTable.Refresh BackgroundQuery:=False
ErrorHandler:
        Application.EnableEvents = True
        If Err.Number <> 0 Then
            MsgBox "Erreur lors de l'actualisation de la table de requête: " & Err.Description, vbCritical
        End If
        On Error GoTo 0
    End If
End Sub

Si la cellule B1 change je souhaiterais modifierla liste avec Power Query.

Le code de la requête Power Query :

Code :

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

1
2
3
4
5
6
7
8
let
    Chemin = Excel.CurrentWorkbook(){[Name="Chemin"]}[Content]{0}[Column1],
    Source = Excel.Workbook(Folder.Files(Chemin), null, true),
    #"Colonnes supprimées" = Table.RemoveColumns(Source,{"Content", "Extension"}),
    #"Attributes développé" = Table.ExpandRecordColumn(#"Colonnes supprimées", "Attributes", {"Size"}, {"Attributes.Size"}),
    #"Colonnes permutées" = Table.ReorderColumns(#"Attributes développé",{"Folder Path", "Name", "Date accessed", "Date modified", "Date created", "Attributes.Size"})
in
    #"Colonnes permutées"

Ça ne fonctionne pas d’où provient l'erreur ?

Merci d'avance pour vos réponses et votre aide.

[modus57]

Bonjour @ tous,

J'ai modifié la requête comme suit:

Code :

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

1
2
3
4
5
6
7
let
    Source = Folder.Files(Excel.CurrentWorkbook(){[Name="Chemin"]}[Content][Column1]{0})
    #"Colonnes supprimées" = Table.RemoveColumns(Source,{"Content", "Extension"}),
    #"Attributes développé" = Table.ExpandRecordColumn(#"Colonnes supprimées", "Attributes", {"Size"}, {"Attributes.Size"}),
    #"Colonnes permutées" = Table.ReorderColumns(#"Attributes développé",{"Folder Path", "Name", "Date accessed", "Date modified", "Date created", "Attributes.Size"})
in
    #"Colonnes permutées"

J'obtiens cette erreur:

Code :

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

Expression.SyntaxError : Jeton ',' attendu.

Je cherche s'il est possible d'ouvrir une requête Power Query à partir d'un dossier qui aurait un chemin variable.

L'idée c'est de récupérer la valeur contenu dans une cellule Excel et remplacer la source par une variable afin de rendre dynamique l'écriture de la source Power Query.

[modus57]

Re,

Simple oubli de la virgule :

Code :

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

Source = Folder.Files(Excel.CurrentWorkbook(){[Name="Chemin"]}[Content][Column1]{0}),

Et maintenant ça fonctionne.

Bonne journéé @ tous.