Requete Power Query

Version imprimable

Requete Power Query

Bonsoir à tous
Etant novice et malgré mes recherches je vous demande de l'aide, mon problème est :
J'ai un dossier avec deux fichiers excel, l'un des fichier me sert de source.
Malheureusement quand je copie mon dossier vers un autre dossier je refais le chemin de la source NORMAL.
Pour info les fichiers seront toujour dans le mëme dossier.
J'ai trouvé un code pour Word ( publipostage) que j'essaye de mettre pour EXCEL ( désole pour les erreurs )
Code:

1 2 3 4 5 Dim chemin As String chemin = ThisWorkbook.Path ActiveDocument.MailMerge.OpenDataSource Name:=chemin & "\Complet.xls", _ SQLStatement:="SELECT * FROM `Tranchee$`", SQLStatement1:="", SubType:= _ wdMergeSubTypeAccess
Merci à vous

12/12/2021, 19h28
tototiti2008

Bonjour,

Le publipostage est un outil propre à Word, n'existe pas en Excel, et n'est pas équivalent à Powerquery
D'autre part ActiveDocument ne fonctionnera que dans Word, car un fichier Word est un document, alors qu'un fichier Excel est un classeur (ActiveWorkbook ou Thisworkbook)

Le mieux serait d'enregistrer une macro dans Excel, de faire le lien avec tes données du classeur externe avec Powerquery, et de partir du code généré, si ton code nécessite de refaire le lien à chaque fois

Bonjour tototiti2008
Merci pour ta réponse, je vais partie sur une macro pour simplifier de plus a l'avenir j'aurais plusieurs fichiers du même principe.
Depuis j'ai trouvé sur le site un code que j'ai commencé a trituer :weird:

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 RequeteClasseurFerme_Excel2007()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
    Dim chemin As String
    chemin = ThisWorkbook.Path
 
     'Définit le classeur fermé servant de base de données
    Fichier = chemin & "\complet.xlsx"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "Tranchee"
 
    Set Cn = New ADODB.Connection
 
    '--- Connexion ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
    '-----------------
    '... la requête ...
    '
     '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
 
End Sub

Si cela ne te dérange pas, peux tu me dire si je suis dans la bonne direction
Merci de ton retour

Bonjour py86acces,

Perso je fais des requêtes via IBM mais je ne pense pas qu'il y est de grosses différences sur le principe.
Voila ce que j'utilise:
Code:

1 2 3 4 Dim Con As New ADODB.Connection Dim txtc As String txtc = "provider=IBMDA400;data source=" & maSource & "; ;;" Con.Open txtc
En adaptant pour ton cas ça pourait donner:
Code:

1 2 3 4 5 6 7 '--- Connexion --- Dim Con As New ADODB.Connection Dim txtc As String txtc = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _ & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;" Con.Open txtc '-----------------
à tester
et je suis avec ma requete
Code:

1 2 3 4 5 6 Dim Cmd As New ADODB.Command Set Cmd.ActiveConnection = Con Cmd.CommandText = maRequete Dim Rs As ADODB.Recordset Set Rs = Nothing Set Rs = Cmd.Execute()

14/12/2021, 13h32
py86acces

Bonjour
Merci lucasgaetan
Désolé pour ma réponse tardive
Je regard cela
Merci encore:merci:

Bonjour,

Je ne comprend pas
Je supposais que si tu demandais une macro qui faisait une requête Powerquery sur les données d'un autre classeur, la base serait d'essayer d'enregistrer une macro pendant la mise en place d'une requête Powerquery sur une autre classeur
Non ?

Voilà ce que ça donne chez moi (à adapter)

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 Macro2()
'
' Macro2 Macro
'
 
'
    ActiveWorkbook.Queries.Add Name:="Export (2)", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.Workbook(File.Contents(""C:\Users\Toto\Desktop\Source.xlsx""), null, true)," & Chr(13) & "" & Chr(10) & "    Export_Sheet = Source{[Item=""Export"",Kind=""Sheet""]}[Data]," & Chr(13) & "" & Chr(10) & "    #""En-têtes promus"" = Table.PromoteHeaders(Export_Sheet, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & "    #""Type modifié"" = Table.TransformColumnTypes(#""En-têtes promus"",{{""Champ1 "", type text}" & _
        ", {""Column2"", type any}, {""Column3"", type any}, {""Column4"", type any}, {""Column5"", type any}, {""Column6"", type any}, {""Column7"", type any}, {""Column8"", type any}, {""Column9"", type any}, {""Column10"", type any}, {""Column11"", type any}, {""Column12"", type any}, {""Column13"", 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=""Export (2)"";Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [Export (2)]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Export__2"
        .Refresh BackgroundQuery:=False
    End With
End Sub

21/12/2021, 11h12
py86acces

Bonjour et merci pour ta réponse tototiti2008
Désolé pour mon retour tardive ( pas possible avant ) et mille excuse si je n'ai pas été clair.
Oui, j'utilise power query et ma requete me tranforme mes données et cela marche bien.
Je voulais savoir si il y avait un moyen ( quelque soit la methode ) de dire que le fichier de données se trouvera toujours dans le même dossier que le fichier de ma requète.
Juste pour éviter de redonner le chemin de la base et les erreurs a chaque fois que mon dossier est copier ou déplacer.
Merci pour ton retour.