Microsoft 365 ouvrir le chemin d'une power query manuellement

[iliess]

bonjour
voici mon code qui automatise l'ouverture d'une power Query
je souhaite que le chemin se faire d'une manière manuelle.

Sub Macro2()

    ActiveWorkbook.Queries.Add Name:="JournalReport", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.Workbook(File.Contents(""C:\Users\ilies\Downloads\JournalAux.xlsx""), null, true)," & Chr(13) & "" & Chr(10) & "    JournalReport_Sheet = Source{[Item=""JournalReport"",Kind=""Sheet""]}[Data]," & Chr(13) & "" & Chr(10) & "    #""Type modifié"" = Table.TransformColumnTypes(JournalReport_Sheet,{{""Column1"", type any}, {""Column2"", type any}, {""Column3"", type text}, {""Column4"", type text}, {""C" & _
        "olumn5"", type text}, {""Column6"", type text}, {""Column7"", type text}, {""Column8"", type text}, {""Column9"", type any}, {""Column10"", type datetime}, {""Column11"", type any}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Type modifié"""
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=JournalReport;Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [JournalReport]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "JournalReport"
        .Refresh BackgroundQuery:=False
    End With
End Sub

Svp comment modifier ce code pour que ce chemin C:\Users\ilies\Downloads\JournalAux.xlsx" ce mettre manuellement c'est a dire obtenir cette fenêtre avant l'exécution du code.
Merci

 

[chris]

Bonjour

La bonne pratique est de créer une requête dans PowerQuery, et non VBA, requête prévue pour se baser sur un paramètre.

Le paramètre peut être passé par une cellule nommée, éventuellement alimentée par VBA, ou être un paramètre POwerQuery modifié par VBA

Utiliser un pseudo dialogue, Application.GetOpenFilename, pour laisser le choix à l'utilisateur et récupérer celui-ci

 

[iliess]

merci Mr Chris pour votre message
J'ai appliqué la deuxième et la troisième consignes de votre message.
et la premiere je ne sais pas comment l'appliquer.

voici le code

Sub Deternination_Chemin()
Dim Chem As String
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        
            If .Show = True Then
                Chem = .SelectedItems(1)
                Range("A1").Value = Chem
            Else
                
                Exit Sub
            
            End If
    End With
End Sub

 

[chris]

RE

Pour le solution de la cellule nommée il faut donc nommer A1, Fichier par exemple

Et la requête utilisera

Excel.Workbook(File.Contents(Excel.CurrentWorkbook(){[Name="Fichier"]}[Content][Column1]{0} ), null, true)

comme source

Il faut en général régler les paramètres de confidentialité de PowerQuery
Fichier, Options et paramètres, Options de requête, partie GLOBAL : Confidentialité, Toujours ignorer les paramètres de niveau de confidentialité

 

[iliess]

Re
oui j'ai nommé la cellule A1 mais toujours bloquer dans cette étape

 

[iliess]

j'ai remplacé le code en #4 mais ça marche pas

 

[chris]

Bonjour
Illustration.
J'ai ajouté l'actualisation au code VBA

 

[iliess]

merci mr Chris