VBA connexion ODBC sous Excel

Bonjour,

Je suis sur un nouveau projet qui consiste à récupérer pas mal d’infos sur une BDD afin de les organiser sous Excel. Mon soucis actuellement est de faire un bouton qui permette une automatisation des requêtes (qui seront toujours les mêmes à quelques exceptions prêts), pour ça, j’ai besoin que chaque utilisateur puisse se connecter à cette BDD sur le réseau.

Actuellement j’accède moi-même sur cette base via un lien ODBC que j’ai créé sur mon ordinateur, mais je ne peux demander à chaque utilisateur de créer ce lien ODBC avant de pouvoir utiliser ma macro Excel (trop lourd à mettre en place).

Actuellement ça ressemble à ceci :

Code:

---

With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=(nomDSN);Description=Connexion de Test;UID=(UIDrenseigné);APP=Microsoft Office 2003;WSID=D288505;DATABASE=(nomdelaBDD)", Destination:=Range("A1"))

---

Ceci fonctionne très bien, puisque le lien a déjà été créé sur mon poste.

Ce que je souhaite (si c’est faisable ?) c’est de pouvoir me connecter directement à la BDD sans passer par une création préalable du lien ODBC dans l’outil d’aministration windows.

Est-ce possible ? Avez-vous une idée ou une piste pour m’aider ?


Merci d'avance :ccool:

Il semble que j'ai résolu le problème en faisant comme ceci :

Code:

---

With ActiveSheet.QueryTables.Add(Connection:="ODBC;DRIVER={SQL SERVER};UID=(uid);SERVER=(server);DATABASE=(nomdelabase);", Destination:=Range("A1"))

---

Que ça marche c'est une chose, mais si c'est quelque chose qu'il faut éviter absoluement de faire pour une raison ou une autre, je veux bien des conseils quand même ;-)