GoTo avec retour

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:

---

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:

---

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:

---

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 !

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:

---

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:

---

SQL=Requete(A)

---

au lieu de :

Code:

---

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

---

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:

---

Set Result = Connect.Execute(SQL)

---

ça vient d'ou ? :(

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

Code:

---

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.

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