Discussion :

[Goube]

Bonsoir,

J'aimerai savoir s'il est possible de modifier la source d'une requête excel par VBA.

Dans power query je désire modifier le lien qui apparait quand on clique sur le bouton Parcourir dans la fenêtre Modifier.

Bonne soirée,
Cordialement.
Zébulon

[Goube]

Bonsoir,

N'obtenant pas de réponse je joins un fichier à ma demande pour étayer celle-ci.

Bonne soirée

[78chris]

Bonjour

Pourquoi ne pas prévoir une cellule contenant le chemin et une requête utilisant ce chemin, ce qui automatiserait sans VBA ?

[Goube]

Bonjour Chris,

Merci pour la réponse, la solution me parait intéressante mais je n'arrive pas à la mettre en œuvre. Pourrais tu m'indiquer la marche à suivre.

Quand je vais dans les propriétés de ma requête pour modifier les paramètres, l'onglet reste grisé.

Bonne journée,
Cordialement.

[78chris]

Bonjour

Je crée un tableau nommé Chemin d'une colonne titrée Chemin avec dans la cellule en dessous le chemin d'accès à la base comme
E:\_Documents\Database1.accdb

puis dans l'éditeur de la requête je modifie Source : exemple pour la table CODEPOSTAUX

Code :

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

1
2
Source = Access.Database(File.Contents(Text.From(List.First(Table.Column(Excel.CurrentWorkbook(){[Name="Chemin"]}[Content], "Chemin")))), [CreateNavigationProperties=true]),
    _CODESPOSTAUX = Source{[Schema="",Item="CODESPOSTAUX"]}[Data]

Éventuellement tu peux prévoir d'autres colonnes dans le tableau afin de permettre la saisie du chemin sans le nom de la base et dans Chemin complet la concaténation chemin & base pour éviter une erreur de saisie
Par exemple une colonne Chemin, une colonne Base, une colonne Chemin complet où une formule concatène les 2 précédentes

Code :

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

1
2
Source = Access.Database(File.Contents(Text.From(List.First(Table.Column(Excel.CurrentWorkbook(){[Name="Chemin"]}[Content], "Chemin complet")))), [CreateNavigationProperties=true]),
    _CODESPOSTAUX = Source{[Schema="",Item="CODESPOSTAUX"]}[Data]

[Goube]

Chris,

Merci pour tes éclaircissements, je viens de tester. Après quelques tâtonnements dans la syntaxe de l'instruction et les autorisations.
Cette solution est tout à fait ce que je recherchais. Cela à l'air de fonctionner à merveille.

Je l'applique dés que possible dans les conditions réelles.

Encore un grand merci,
Bonne après midi.
Zebulon