Condition contenu dans une variable string

Bonjour a tous:
Voila, j'ai un petit probleme, j'ai une variable string (nommée : strVBA) qui contient la condition a tester dans une boucle conditionnel (un if). Mon probleme est le suivant : Comment la boucle conditionnel (le if) peut elle etre éxécuter avec la condition contenu dans la variable strVBA ???

je donne l'exemple:

Code:

---

1 2 3 4 5 6 7 8 9

strVBA = "Forms![Frm_clsh]![ssfrmenfper].Form![ok03] <> rs.ok03"   if ("QUE-JE-DOIS-JE-ECRIRE-ICI-PR-QUE-LA-CONDITION-SOIT-CELLE-CONTENU-DANS-strVBA") then .... ....... .. ..... end if

---

Merci a l'avance de votre aide, et bonne continuation a la communauté VB

Salut,

Le code peut être le suivant :

Code:

---

1 2 3 4 5

strVBA = "Forms![Frm_clsh]![ssfrmenfper].Form![ok03] <> rs.ok03"   if strVBA="Test" then commandes... end if

---

ou

Code:

---

1 2 3 4 5

strVBA = "Forms![Frm_clsh]![ssfrmenfper].Form![ok03] <> rs.ok03"   if strVBA=1 then commandes... end if

---

Ok merci, je vais tester tout ca!!!

en fait il te faut la fonction evaluate qui ne semble pas présente
essaye ceci si tu as excel
ajoute à ton programme la librairie excel référence

et lance excel.application.evaluate(mavarstring)

Bon et bien ca ne marche pas, car en fait ma variable strVBA est un peu différente de ce que j'ai annoncé (c'était pour simplifier le prob et la compréhension)

voila en fait ce que j'ai:

Code:

---

1 2 3 4 5 6 7 8 9

strVBA = "strVBA = "Forms![Frm_clsh]![ssfrmenfper].Form![ok" & iconverti & "] <> rs.ok" & iconverti debug.print strVBA if ("QUE-JE-DOIS-JE-ECRIRE-ICI-PR-QUE-LA-CONDITION-SOIT-CELLE-CONTENU-DANS-strVBA") then .... ....... .. ..... end if

---

par contre grace au debug.print, je sais que ma variable strVBA est égal successivement a :

Code:

---

1 2 3 4

Forms![Frm_clsh]![ssfrmenfper].Form![ok01] <> rs.ok01 Forms![Frm_clsh]![ssfrmenfper].Form![ok02] <> rs.ok02 Forms![Frm_clsh]![ssfrmenfper].Form![ok03] <> rs.ok03 Forms![Frm_clsh]![ssfrmenfper].Form![ok04] <> rs.ok04

---

je me ssui renseigner sur la fonction "evaluate", il existe la meme sous access sosu le nom de eval.

j'ai essayé de testé avec, mais elle ne marche pas, car eval ne fonctionne qu'avec une commande a éxécuter en string, et non pas avec une condition:

Code:

---

1 2 3 4 5

eval(var_en_string_:_commande_a_executer_ex:docmd.) MARCHE!   eval(var_en_string_avec_condition_a_mettre_dans_un_if) MARCHE PAS!   quelqu'un d'autre a une idée, car la je bloque sérieusement depuis ce matin!

---

Hello,

je voudrais comprendre comment cela se fait que tu récupères une chaine avec un rs. ce qui semble être un recordset ?
Ce serait plus simple de faire :

Code:

---

1 2	If Eval("Forms![Frm_clsh]![ssfrmenfper].Form![ok03]") <> rs.ok03 Then ...

---