Class Connection BD SQL

Bonjour,

J'essaye de créer une classe dans Excel pour me connecter sur une BD ODBC, cependant j'ai des problèmes en appellant une de mes méthodes.

Voici le code de ma classe SQLConnect:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private connectStr As String   Public Property Get ConnectionString() As String ConnectionString = connectStr End Property   Public Property Let ConnectionString(ByVal newConnexStr As String) connectStr = newConnexStr End Property   Public Function sqlQuery(query As String, destinationCells) As QueryTable sqlQuery = ActiveSheet.QueryTables.Add(Connection:=Me.ConnectionString, Destination:=destinationCells, sql:=query) End Function

---

Puis le code dans mon module:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Sub Test() Worksheets("Test").Activate Sheets("Test").Select Dim sql As SQLConnect Set sql = New SQLConnect sql.ConnectionString = "ODBC;DSN=monDSN;UID=monUID;PWD=monPWD" Dim query As String Dim queryTab As QueryTable sqlQuery = "SELECT * FROM SW_T_ParametrageOTC" Set queryTab = sql.sqlQuery(query, Range("A1")) queryTab.Refresh End Sub

---

Le déboggueur m'indique une erreur dans la ligne en rouge, donc je pense que ma méthode a un problème. J'ai essayé de trouver une solution sur Google, mais malheureuseument j'ai rien trouvé pour l'instant.

Merci d'avance

bonjour

Tu peux réessayer en remplaçant

Code:

---

sqlQuery = "SELECT * FROM SW_T_ParametrageOTC"

---

par

Code:

---

Query = "SELECT * FROM SW_T_ParametrageOTC"

---

michel

Oops mea culpa, une gaffe lors du recopiage du code...

Mon code correct est celui-ci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Sub Test() Worksheets("Test").Activate Sheets("Test").Select Dim sql As SQLConnect Set sql = New SQLConnect sql.ConnectionString = "ODBC;DSN=monDSN;UID=monUID;PWD=monPWD" Dim query As String Dim queryTab As QueryTable query = "SELECT * FROM SW_T_ParametrageOTC" Set queryTab = sql.sqlQuery(query, Range("A1")) queryTab.Refresh End Sub

---

Et quand j'execute mon code j'obtiens l'erreur d'execution 91 sur la ligne en rouge. Et si j'execute mon code avec des points d'arrêts, le code bug à la ligne suivante de mon code de classe:

Code:

---

1 2 3 4

Public Function sqlQuery(query As String, destinationCells) As QueryTable sqlQuery = ActiveSheet.QueryTables.Add(Connection:=Me.ConnectionString, Destination:=destinationCells, sql:=query) End Function

---

bonjour

Je n'ai pas la possiblité de vérifier pour l'instant mais est ce qu'il ne faudrait pas plutot écrire

Code:

---

Set sqlQuery = ActiveSheet.QueryTables.Add(....

---

bonne journée
michel

Yes, c'était exactement ça, merci!