Discussion :

[Mathis75]

Bonjour,

Je viens vers vous pour avoir un conseil. Comme dans de nombreuses société, un ancien collégue à mis en place de nombreux fichier Excel pour facilité la vie de son equipe. Donc depuis son départ je dépanne régulierement mes collégues quand un de leurs fichier BUG sur du VBA ou des formules. Ces fichiers Excel font de nombreuses requetes sur des classeurs ou la base de données d'un Logiciel.

Il y a quelques temps mes collégues ont eu comme projet de changer d'editeur et donc de logiciel . On m'a donc appellé au secours en derniére minute pour une tache un peu nouvelle pour moi.
Je dois modifier les requetes sur une vingtaine de classeurs Excel et sur un de leur fichier Excel j'ai recensé pas moins 14 Connexions et requetes

J'ai analysé les requetes vers la BDD de l'ancienne Application pour avoir le schema des données qui en etait extraite et pouvoir mettre en place les nouvelles Requetes.

Par contre, pourriez-vous m'indiquer si l'on peut simplement modifier les propriétés de connexion d'une requetes en modifiant
- La chaine de connexion
- Le texte de la commande

Ou faut-il tous supprimer et tout recréer ?

Par avance, merci pour vos conseil

[Pierre Fauconnier]

Salut.

Je suppose que ces connexions ne sont pas encore des POWER QUERY... Peut-être faudrait-il profiter du travail de mise à jour à effectuer pour basculer sur Power Query?



Cela dit, un classeur dispose de la collection WorkbookConnections qui reprend l'ensemble des connexions du classeur. Tu y retrouveras des ODBCConnections et des OLEDBConnections. Ces objets exposent notamment les propriétés Connection et CommandText. Tu peux retrouver tout ça via l'explorateur d'objet (F2)



Voilà un code qui donne les valeurs des deux propriétés sus-citées

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
  Dim cn As WorkbookConnection
 
  Set cn = ThisWorkbook.Connections(2)
  With cn.ODBCConnection
    Debug.Print .Connection
    Debug.Print .CommandText
  End With
End Sub

Je précise bien que ceci ne vaut que pour les requêtes NON Power Query

[Pierre Fauconnier]

Pour Power Query, tu peux passer par la collection Queries du classeur qui contient des WorkbookQuery dont tu peux modifier la propriété Formula

[Mathis75]

Merci pour votre réponse et désolé de ma réponse tardive.

Effectivement, il ne s'agit pas de Power Query. Par contre j'ai cru comprendre en lisant un post que l'on pouvait modifier les connexions et les requetes grace aux commande ci-dessous :

Code :

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

1
2
3
4
 
 
ActiveWorkbook.Connections("Nom_Connexion").ODBCConnection.Connection = "Ma chaine de connexion"
ActiveWorkbook.Connections("Nom_Connexion").ODBCConnection.CommandText = "ma commande"

Est-ce aussi simple ?

Merci pour votre aide.

[Pierre Fauconnier]

Oui, c'est aussi simple.

Le code que j'ai donné dans mon premier message fait la même chose, mais en passant par une variable "pour plus de clarté de code", notamment pour illustrer que l'on pourrait boucler sur les connexions d'un classeur:

Code :

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

1
2
3
4
5
6
7
8
Sub updateConnections()
  Dim cn As WorkbookConnection
 
  For Each cn In ThisWorkbook.Connections
 
 
  Next cn
End Sub

On pourrait aussi avoir un tableau structuré avec trois colonnes (Nom de la connexion, chaine de connexion, commande sql) et boucler sur les lignes du tableau pour mettre les connexions à jour avec un code générique. Tout dépend du nombre de connexions et de classeurs à traiter.

[Mathis75]

Merci pour votre aide et votre précision.