Discussion :

[mfoxy]

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 :

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
 
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

[Jean-Philippe André]

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 :

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

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

[mfoxy]

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é.

[Jean-Philippe André]

Ah, je comprends mieux...

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

[mfoxy]

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 ?

[Jean-Philippe André]

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