Discussion :

[ChristianBosch]

Bonjour, tout est dit dans l'intitulé, j'aimerais savoir quelle commande exécuter en VBA pour sortir le chemin d’accès d'une requête powerquery.

J'ai essayé ca

Code :

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

Debug.Print ThisWorkbook.Connections(1).Application.Path

Mais ca me sort le chemin d'acces de l'application office...

Avec

Code :

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

Debug.Print ThisWorkbook.Queries(1).Application.Path

C'est exactement la même chose.

Si quelqu'un sait comment faire je suis preneur. Merci

[Pierre Fauconnier]

Salut.

On utilise ThisWorkbook.Connections pour les "anciennes" connexions aux données, et ThisWorkbook.Queries pour les connexions telles que Power Query.

Pour Thisworkbook.Connections, on peut retrouver la source avec la propriété connection : thisworkbook.Connections(1).ODBCConnection.Connection (ou .OLEDBConnection selon le type de connexion, que l'on peut connaître grâce à la propriété Type de la connection).

Pour les requêtes Power Query, c'est la propriété Formula de la Query que l'on utilise: thisworkbook.queries(1).Formula

[ChristianBosch]

D'accord merci ! Je vais maintenant faire une fonction pour extraire le chemin d'acces

[ChristianBosch]

Voila la fonction de récupération du chemin

Code :

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

1
2
3
4
5
Function GetQueryPath(Extension As String, queryName As String) As String
Dim QR As String
QR = ThisWorkbook.Queries(queryName).Formula
GetQueryPath = Mid(QR, InStr(1, QR, "\\"), InStr(1, QR, Extension) - InStr(1, QR, "\\") + Len(Extension))
End Function

En entrée on a besoin de l'extention du fichier ainsi que le nom de la requête.

Personnellement je m'en sert sur un requête basée sur une bdd access don l'extension est "accdb". Ca me sert a faire des entrées sur cette base de données sans avoir le chemin d’accès en dur dans le code ou dans le classeur. Étant donné que j'ai une requête pour visualiser, si le chemin de la base change cela sera indiqué directement par excel et le changement se fera dans la requête.

Merci Pierre

[Nicolas MENDEZ]

Hello...

Je rejoins évidement Pierre.

Pour compléter tu peux retrouver des infos au niveau du data model dans Power Pivot avec ThisWorkbook.Model.ModelTables(1)

Pas mal d'infos intéressantes à ce niveau aussi....

[Pierre Fauconnier]

En complément: Thisworkbook.connections(x) renvoie le xième objet WorkbookConnection et Thisworkbook.Queries(x) renvoie le xième WorkbookQuery. Savoir cela permet d'utiliser des variables, notamment lorsqu'il faut manipuler plusieurs propriétés ou méthodes des objets manipulés