Discussion :

[Kestion100]

Bonjour,
Est-il possible de récupérer le nom et le chemin d'un fichier source de données d'une requête Query d'un classeur.

Merci beaucoup

[Philippe Tulliez]

Bonjour,
Les requêtes sont elles chargées dans des feuilles du classeur ou bien sont-elles en connexion ?

[Kestion100]

Les données sont chargées dans les feuilles du classeurs

[Kestion100]

Petit plus, j'ai plusieurs sources de données dans le classeur, il faudrait que je fasse une boucle

[Philippe Tulliez]

Bonjour,
Voici un code VBA qui affiche dans la fenêtre d'exécution le code de toutes les requêtes.

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
Sub t()
  ' Déclaration des constantes et des variables
  Const strConnectionPrefix As String = "TEXT;"
 
  Dim sht As Worksheet
  Dim qt As QueryTable
  Dim pq As WorkbookQuery
  Dim strFilePath As String
  Dim strSourceName As String
 
  ' Boucle à travers toutes les feuilles de calcul pour trouver les QueryTables
  For Each sht In ThisWorkbook.Worksheets
      For Each qt In sht.QueryTables
          If qt.Connection Like strConnectionPrefix & "*" Then
              strFilePath = Replace(qt.Connection, strConnectionPrefix, "")
              Debug.Print "Nom de la requête: " & qt.Name
              Debug.Print "Chemin du fichier: " & strFilePath
          End If
      Next
  Next
 
  ' Boucle à travers toutes les requêtes Power Query
  For Each pq In ThisWorkbook.Queries
      strSourceName = pq.Name
      strFilePath = pq.Formula
      Debug.Print "Nom de la requête Power Query: " & strSourceName
      Debug.Print "Formule: " & strFilePath
  Next pq
End Sub

Si l'étape contenant la source commence bien par "Source = ", il suffit d'extraire cette ligne pour connaître la source.
Pour ma part, lorsque je programme une requête, la source se trouve dans le classeur Excel et pas "en dur" dans la ligne de code de l'étape

[Kestion100]

J'essaye

[Pierre Dumas]

Bonsoir

J'arrive peut-être un peu tard et je ne comprends certainement pas bien la demande, mais s'il s'agit juste de récupérer une fois la source d'une requête Power Query, il suffit d'aller dans l'éditeur et de regarder la barre de formule après avoir sélectionné la première étape (en général appelée Source).

Mais ce n'est certainement pas cette réponse triviale qui était attendue.

Pierre Dumas

[Kestion100]

Parfait pour Philippe Tulliez