[Power Query] - Data Base Connection

Bonjour à tous,

J'ai un petit souci et ne parviens pas à trouver la solution sur la toile.
Peut-être pourriez-vous m'aider ?

J'ai un fichier Excel, vue d'une db SQL, dans lequel j'ai créé divers table basée sur des requêtes PowerQuery pour analyse.
L'ouverture de ce fichier est très très lente (presque 10 min),(après test) se ne sont pas mes queries, mais bien la connexion au données qui ralentit l'ouverture du fichier.

Pour solution, j'ai pensé : créé une macro dans le workbook_Open qui contrôlerait la dernière fois ou la base a été sauvée sur le fichier Si > 2h mettre à jour, sinon ne pas importer la vue SQL.
Mon code fonctionne mais uniquement si je la lance Wb ouvert , si le wb est fermé et que je l'ouvre la connexion se fait tout de même.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Workbook_Open()   Application.ScreenUpdating = False Application.Calculation = xlCalculationManual   If TimeDiff(Now(), LastModified) / 60 > 120 Then ' On importe uniquement l'ensemble des données si Maj date de moins de 2H ActiveWorkbook.Connections("t_DataBase").OLEDBConnection.BackgroundQuery = False ActiveWorkbook.Connections("t_DataBase").Refresh   Call addWeekNum Call RefreshQueries   End If   Application.ScreenUpdating = False Application.Calculation = xlCalculationAutomatic End Sub

---

Auriez-vous une astuce pour palier à ce souci, du type bloqué la connexion/refresh du wb et l'activé si la condition est remplie ?

D'avance Merci,
MFoxy

salut,

je ne suis pas certain d'avoir compris toutes les questions, mais si tu souhaites savoir si la connexion est déjà ouverte, tu peux passer par la propriété State

Code:

---

1 2 3

If Not TaConnexion.State = adStateOpen Then 'tu l'ouveres End If

---

Merci Jean-Philippe,

Je dois mettre mal expliqué.

Lorsque je double clic sur mon fichier Excel, celui-ci s'ouvre mais mets énormément de temps à charger la connexion à la base de donnée liée (assez volumineuse) pour le refresh des données sur la feuille.

Ce que je voudrais c'est "bloqué" le refresh/connection automatique a la bd sql à l'ouverture d'excel, et ainsi lancer le refresh uniquement si nécessaire, par exemple si le classeur a été sauvegarder pour la dernière fois dans les 2 dernières heures

Pas simple a expliquer désolé.

Ah, je comprends mieux...

Ton LastModified peut être stocké dans une cellule, qui sera lu et mis à jour.

D'accord avec toi, mais sa n'empêchera le fichier de se mettre à jour dès l'ouverture.

Ici le fichier n'est pas encore ouvert lorsqu'il charge les données externes.

Exemple si je mets un MsgBox dans workbook open il n'apparaît qu'après ouverture du wb, lorsque l'on voit les feuilles.

Donc il ne "lira" pas non plus dans la cellule le Last modifie. Si ?

Si tu ouvres le classeur via le code, tu peux preciser si tu souhaites les link update, mis à false :)

Si c'est un lancement manuel, tu peux faire en sorte que le test se déroule (dans ton code la variable LastModified n'est pas affectée :)

OK,
Merci, je test cela demain au boulot, et reviens vers toi au besoin.

Je devrais donc, si je te suis bien, peut-être créer un vbs pour ouvrir le fichier Excel en inhibant les refresh link de celui-ci, une fois le fichier ouvert le workbook_open ferait son job et mettrait le wb à jour si condition remplie ?

EDIT : dans mon code le "lastModified" est un retour de fonction qui me donne la date time du Last modified du classeur en cours et non pas une variable.

Re,

ça fonctionne nickel.

Merci pour l'astuce, toujours mon code précédent dans le WorkBook_Open et j'ouvre le Wb par un autre classeur via le code ci-dessous.
Le Wb destination ne se met plus à jour automatiquement à l'ouverture :lol:, c'est le code WorkBook_Open du fichier destination qui vérifie si oui ou non la màj doit ce faire.

Code:

---

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

Sub test() Dim wbk As Workbook Dim Path As String Dim Filename As String Path = "C:\Users\admin\Desktop\" Filename = "ExcelFileName.xlsm" Set wbk = Application.Workbooks.Open(Filename:=Path & Filename, UpdateLinks:=False) End Sub

---

Encore Merci,

MFoxy