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 : Sélectionner tout - Visualiser dans une fenêtre à part
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