Discussion :

[casavba]

Bonjour à tous,
j'ai un pti pépin.
je vous explique, j'ai une macro où j'ai inclus différentes requêtes sql chacune d'elle a été déclaré comme une chaine de caractère,

Code :

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

1
2
3
4
5
6
 sub mac()
With Data.QueryTables.Add(Connection:=Array(..), Destination:=Range(ç1))
        .CommandText = Array(re,req,requ1)
        ...
    End With
end sub

sachant que "re" et "req" sont fixes, c'est juste "requ1" qui est variable ( en fait j'ai 4 autre "requ" numéroté de 1 à 4)
Donc pour éviter des redondances, j'ai créé une boucle For. Or c'est là que ça coince en fait, quand j'ai inclus la boucle for ma macro ne marche plus "erreur de syntaxe" alors que sans boucle tous marche bien.
Aidez moi svp
voici le code

Code :

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

1
2
3
4
5
6
7
8
sub mac()
for i = 1 to 4
With Data.QueryTables.Add(Connection:=Array(..), Destination:=Range(ç1))
        .CommandText = Array(re,req,requ & i)
        ...
    End With
next i
end sub

D"avance merci

[jfontaine]

Tu ne peux pas appeler une variable en utilisant des noms comme suite
requ & i

[GBAGO]

Bonjour!

Ton problème se trouverait au niveau de la concaténation de requ & i
dans cette partie du code :

Code :

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

1
2
.CommandText = Array(re,req,requ & i)

[casavba]

et donc il n'ya pas de solution c ça.

[jfontaine]

Tu peux utiliser ta boucle, mais il va falloir intégrer dans celle-ci le chargement d'une variable reqx qui sera différente a chaque tour de boule

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
 
sub mac()
for i = 1 to 4
select case i
   case 1
       requx= ...
   case 2
       requx =...
    ...
end case
 
With Data.QueryTables.Add(Connection:=Array(..), Destination:=Range(ç1))
        .CommandText = Array(re,req,requx)
        ...
    End With
next i
end sub

[LeForestier]

Peut-être plus simple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
sub mac()
Dim a$ 
a$ = "requ"
 
for i = 1 to 4
With Data.QueryTables.Add(Connection:=Array(..), Destination:=Range(ç1))
        .CommandText = Array(re,req,a$ & i)
        ...
    End With
next i
end sub

A+

[jfontaine]

je ne comprend pas ce qe tu veux faire LeForestier
Peux tu éclairer mes lampions