Executer un requete power query dans un fichier excel depuis access en vba

Bjr,

Lorsque j'exéctte le code ci-dessous depuis access, les données du fichier Excell ne sont pas chargées. le fichier modifié se retrouve dans "Récpération de fichier" . Comment éviter cela et afficher directement les données dans la table?
Merci pour votre aide.

Code:

---

1 2 3 4 5 6 7 8 9 10

Set xlApp = CreateObject("Excel.Application") xlApp.DisplayAlerts = False   Set xlBook = xlApp.Workbooks.Open("K:\AutexServer\MissionLaluxExcel\ImportMissionLalux2.xlsm") With xlBook .Activate .Queries("ImportationMission").Refresh .Save End With

---

J'ai également essayé avec

'xlApp.Run ("Reload") 'Reload étant la macro dans le fichier excel qui execute la mise à jour de la requête
et avec
.RefreshAll

Rien ne fonctionne

Bonjour,
Je ne sais pas si c'est un doublon, ou que vous ne retrouvez pas votre première question, mais j'ai apporté une réponse à ce post
L'idée de la mise à jour dès l'ouverture est peut-être à creuser?

Bjr et merci pour ta solution. Malheureusement elle ne fonctionne pas. J'ai finalement trouvé.
Pour ceux que ça pourrait intéressé voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Const Module_Name As String = "Module2" Const Proc_Name As String = "Reload" Dim xlMacro As String Set xlApp = CreateObject("Excel.Application") xlApp.DisplayAlerts = False   Set xlBook = xlApp.Workbooks.Open("K:\AutexServer\MissionLaluxExcel\ImportMissionLalux2.xlsm", True, False) xlMacro = xlBook.Name & "!" & Module_Name & "." & Proc_Name xlApp.Visible = False xlApp.Run xlMacro xlBook.Sheets("Page001").UsedRange.ListObject.QueryTable.Refresh xlBook.Save xlApp.DisplayAlerts = True

---