Discussion :

[sasafca]

Bonjour à tous,

voila mon problème:

J'ai une macro comprenant une requête SQL que je dois effectuer plusieurs fois mais avec des paramètres différents. Donc pour simplifier le code je souhaite faire une sorte de GoTo mais qui revient la ou ça en était.

Exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
SQL= "SELECT * FROM variable"
 
variable = A
Set Result = Connect.Execute(SQL)
Range("A1").value =  Result.Fields(0).Value
 
variable = B
Set Result = Connect.Execute(SQL)
Range("A2").value =  Result.Fields(0).Value
....

Cependant, ceci ne marche pas car j'obtient toujours le résultat de la requête ou variable = A.
Pour que ça fonctionne, il faudrait que je fasse ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
SQL= "SELECT * FROM variable"

variable = A
Set Result = Connect.Execute(SQL)
Range("A1").value =  Result.Fields(0).Value

SQL= "SELECT * FROM variable"

variable = B
Set Result = Connect.Execute(SQL)
Range("A2").value =  Result.Fields(0).Value

Or ma requête est assez lourde et le code va rapidement être long, c'est pour ça que je cherche quelque chose comme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
SQL:SQL= "SELECT * FROM variable"

variable = A
Set Result = Connect.Execute(SQL)
Range("A1").value =  Result.Fields(0).Value

GoTo SQL
variable = B
' (une fois le GoTo effectué je reviens où le code en était)
Set Result = Connect.Execute(SQL)
Range("A2").value =  Result.Fields(0).Value
....

SQL:SQL= "SELECT * FROM variable"

Merci de votre aide !

[Soraphiroth]

Tu ne peux pas revenir en arrière juste pour effectuer une seule action. Si tu le fais, tu referas tout du label ("SQL") au GoTo, ce qui risque d'entrainer une boucle infinie si tu ne mets aucune condition au retour.

Si tu tiens à ne pas écrire ta requête à chaque fois, tu peux la déporter dans une fonction :

Code :

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

1
2
3
function Requete(byval variable as string) as string
    Requete = "SELECT * FROM " & variable
end function

ainsi tu n'auras plus qu'à écrire dans ta macro que :

Code :

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

SQL=Requete(A)

au lieu de :

Code :

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

1
2
SQL= "SELECT * FROM variable"
variable = A

[sasafca]

Merci beaucoup de la réponse, je sais pas comment j'ai fait pour pas y penser...

Juste j'ai le message d'erreur "command text was not set for the command object" sur

Code :

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

Set Result = Connect.Execute(SQL)

ça vient d'ou ?

[Soraphiroth]

à vrai dire je n'ai jamais fait de sql via VBA, essaye :

Code :

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

1
2
3
4
5
6
7
8
9
function Requete() as string
    Requete = "SELECT * FROM variable"
end function 
 
 
'...ton code
SQL=Requete()
variable = A
...

Mais à mon goût on perd tout l'intérêt de faire une fonction. A moins que ta requête soit très longue.

[sasafca]

C'est bon en faite fallait juste que je mette mes variables dans la fonction et non dans le sub()...

Cependant, comment je fais du coup pour que le résultat de ma requête (contenu dans une variable) soit pris en compte dans mon sub() ?
Merci !


PS: C'est bon il suffisait de déclarer la variable en Public...

Encore merci