Calimero33
XLDnaute Nouveau
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 :
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:
Texte_SQL10 = " SELECT ..."
Texte_SQL11 = " SELECT ..."
Texte_SQL12 = " SELECT ..."
Texte_SQL13 = " SELECT ..."
...
For I = 10 To 14
Set Rst = New ADODB.Recordset
Set Rst = Cn.Execute("Texte_SQL_" & I)
...
Next