Discussion :

[LG-69]

Bonjour,

Ayant posé la question dans le forum "classique" d'excel et n'ayant pas eu de réponse, il semble qu'il n'y ait pas de solution pour mettre à jour manuellement ou directement par les menus excel les connexion MSQuery. Je me lance donc dans une macro pour le faire.

Ma problématique :
- J'ai un fichier excel versionné (nomfichier_v1) pour lequel j'ai créé une connexion MSQuery sur lui même afin de pouvoir avoir un tableau croisé dynamique complexe prenant ses données sur plusieurs onglets => ça marche.
- Mon fichier subit régulièrement des montées de version (nomfichier_v2, nomfichier_v3,...) mais la connexion MSQuery reste toujours sur la première version de mon fichier. Il me faut donc mettre à jour la connexion.
- Je n'ai pas trouvé (enfin il ne semble que ce ne soit pas possible) comment mettre à jour cette connexion manuellement (sans devoir tout reconstruire mon Tcd)

Solution :
- J'ai trouvé un lien intéressant pour le faire par macro :
https://support.microsoft.com/en-us/kb/816562

Avant de lancer une macro aux résultats non maîtrisés et plus ou moins définifs j'ai modifié la macro afin de juste afficher dans une Msgbox la connexion :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub QueryChange()
     Dim sh As Worksheet, qy As QueryTable
     Dim pt As PivotTable, pc As PivotCache
     Dim OldPath As String, NewPath As String
     Dim rng As Range
 
     For Each ws In ActiveWorkbook.Sheets
       For Each qy In ws.QueryTables
            MsgBox (qy.Connection)
            MsgBox (qy.CommandText)
       Next qy
     Next ws
End Sub

Or rien ne se passe. Je suis alors passé en mode pas à pas et là je constate que ma macro boucle bien sur mes feuilles actives mais n'entre jamais dans la boucle des QueryTables, comme s'il n'y en avait pas.

Quand je fais Menu "connexion", j'ai ma requête : "Requête_v0.6"
Quand je fais "propriétés, j'ai bien les liens de connexion et de requête
- chaîne de connexion : "DSN=Excel Files;DBQ=T:\CND\IND\RNGD\Pilotage\Plan de charge\RNGD Suivi pilotageJFS_v0.10.xlsm;DefaultDir=T:\CND\IND\RNGD\Pilotage\Plan de charge;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;"
- texte de commande : "SELECT * FROM Tb_Phase1 Tb_Phase1 union SELECT * FROM Tb_Conges Tb_Conges"

C'est ce qui est en gras que j'ai besoin de changer (et accessoirement la requête SQL)

D'avance merci pour toute aide sur ce sujet.

[Marc-L]

Bonjour,

si pas d'entrée dans la boucle, aucun objet QueryTable dans la feuille !

Et c'est pourtant simple à vérifier en insérant avant la boucle :

MsgBox "Feuille " & Ws.Name & " : " & Ws.QueryTables.Count …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[LG-69]

Merci pour cette réponse, je ne suis pas un grand expert en VBA et n'aie donc pas pensé à utiliser la fonction count.
C'est fait et comme on pouvait s'y attendre le résultat est 0 pour chacune des feuilles. Mais alors où est planquée ma connexion MSQuery ?

Quand je suis sur mon onglet Tcd qui utilise les données de la requête, j'utilise le menu "Données" puis "connexion" et je retrouve bien ma requête

[Marc-L]

Confusion des collections QueryTables et Connections ou autre …

Rien qu'en activant le Générateur de macro puis en modifiant la connexion MSQuery (qui n'est donc pas une QueryTable !) …



_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[LG-69]

Merci pour la réponse :

Confusion des collections QueryTables et Connections ou autre …

Ca ne m'aide pas beaucoup pour avancer.
J'ai donc tenté comme conseillé :
- de modifier manuellement le fichier cible de la connexion MSQuery => j'y arrive uniquement si l'ancien fichier (=ancienne version du fichier) n'existe plus ou n'est plus accessible
- de modifier la requête => impossible sans ré-initialiser totalement le TcD qui s'appuie dessus (donc aucun intérêt s'il faut tout refaire)

Devant la difficulté, le peu de "littérature" trouvée sur ce sujet et visiblement le peu de personnes utilisant ce type de solution j'ai revu totalement la conception et abandonné les MSQuery (connexion ou collection je n'en sait rien).

J'ai maintenant :
- paramétré mes onglets à consolider (dans un tableau excel)
- fait une macro qui balaye tous les onglets paramétrés et copie/colle les données dans un onglet consolidé
- créé mon Tcd sur ce nouvel onglet

En cas d'ajout d'un nouvel onglet je n'ai qu'à l'ajouter au paramétrage et ça roule.
Dommage ces MSQuery me paraissaient bien puissantes mais trop compliquées à mettre en oeuvre (et encore plus à mettre à jour)