Discussion :

[Calimero33]

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

[delphine35]

Quelques suggestions : en couleur

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 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ù ...

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Calimero33]

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 ?

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

j=i+10