Chargement d'une référence et utilisation (Microsoft ActiveX Data Objects 2.8 Library)

Bonjour,
J'ai une macro ajoutant des données dans une bdd SQL Server. Je me sers donc de Microsoft ActiveX Data Objects 2.8 Library avec ADODB. De base sur les Excel de mon entreprise cette référence n'est pas activée. Je souhaite donc ouvrir la référence dans le code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub chargeRef() ThisWorkbook.VBProject.References.AddFromFile "C:\Program Files\Common Files\System\ado\msado28.tlb" End Sub   Sub insertSql() ' Réf Call chargeRef   ' Connexion Set connQuinc = New ADODB.Connection End Sub

---

Lorsque la référence n'est pas coché j'ai l'erreur "Type défini par l'utilisateur non défini" sur ADODB.Connection. Je n'ai pas d'erreur lorsque c'est coché.

Bonjour,

quand un projet est distribué pour plusieurs PC, il est préférable de travailler en liaison tardive, ce qui évite d'utiliser les références et de gérer les problèmes sous-jacents

remplace ton utilisation typée :

Code:

---

Set connQuinc = New ADODB.Connection

---

par une déclaration d'objet "lambda" et une création de l'objet souhaité

Code:

---

1 2	Dim connQuinc as Object Set connQuinc = CreateObject("ADODB.Connection")

---

à faire pour chaque objet de la librairie utilisée (on n'a pas l'ensemble de ton code)


Un petit tour par ici où était proposé la liaison tardive sur un peu plus d'objets : http://www.developpez.net/forums/d16...e/#post8897732