Erreur d'automation avec VBA

Bonjour afin de factoriser mon code VBA j'ai veux faire une boucle for qui execute mes requêtes via des recordset. Mes requetes fonctionne je les ai toutes testé individuellement. Quand je fais :

Set Rst = Cn.Execute(Texte_SQL_10) ça fonctionne
Set Rst = Cn.Execute("Texte_SQL_" & I) ça fonctionne pas j'ai une erreur d'automation.

Extrait code :

Code:

---

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

Texte_SQL_10 = " SELECT ..." Texte_SQL_11 = " SELECT ..." Texte_SQL_12 = " SELECT ..." Texte_SQL_13 = " SELECT ..."   ...   For I = 10 To 14   Set Rst = New ADODB.Recordset Set Rst = Cn.Execute("Texte_SQL_" & CStr(I))   ... Next   Rst.Close Set Rst = Nothing

---

Quelques suggestions : en couleur

Code:

---

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

Texte_SQL_10 = " SELECT ..." Texte_SQL_11 = " SELECT ..." Texte_SQL_12 = " SELECT ..." Texte_SQL_13 = " SELECT ..." ... For I = 10 To 14 Set Rst = New ADODB.Recordset Set Rst = Cn.Execute("Texte_SQL_" & CStr(I)) ... Next I Rst.Close Set Rst = Nothing

---

=> Tu as essayé de mettre "Texte_SQL_" & CStr(I) dans une variable puis de faire execute(de_ta_variable) ... au cas où ... :aie:

tu ne peux pas utiliser le nom des variables ainsi
regarde ci-joint

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim x1 As String, x2 As String Dim T Dim i As Byte   x1 = "select...1" x2 = "select...2" T = Array(x1, x2)   For i = 0 To UBound(T) MsgBox T(i) Next i

---

Merci mercatog ton code fonctionne. J'ai un problème pour l'adapter, le nom de chaque requête porte le numéro de ligne ou il faut les inserer. La variable I me permettait donc de faire ma boucle, exécuter la bonne requete et l'inserer dans la bonne cellule. COmment puis-je adapter mon idée à ton code ?

Code:

---

j=i+10

---