Exécuter du code VBA placé dans un champ de type mémo

Bonjour tout le monde,

Dans le cadre de la "refonte" d'un outil existant, je cherche à exécuter du code VBA stocké sous forme de texte dans un champ de type mémo d'une table quelconque.

En d'autres termes, comment prendre le texte de ce champ et dire à Access : exécute-moi ce bout de code!!

Ces bouts de code sont pour la plupart des ouvertures de formulaires / états, des transferts de requêtes dans des feuilles Excel ou encore des "scripts" bien plus complexes.

Le hic est que je n'arrive pas à prendre ce texte et de le rendre exécutable. Y existe-t-il un moyen de procéder??

Je travail sous Access 2003 SP3.

Merci d'avance pour vos réponses et bonne journée.

Julius

Bonjour,

2 pistes :

Eval() et Run

Bien entendu c'est 2 techniques ont leur limites.

Cordialement

Bonjour loufab,

Merci pour ta réponse rapide.... je vais partir dans ce sens et je te donne des news.

Voici les dernières nouvelles :

Après de multiples tests infructueux avec les méthodes Run() et Eval() j'ai testé une autre solution.

J'ai appris l'existence de la méthode "AddFromString". Je l'utilise donc pour ajouter du code dans le module de mon choix et j'appelle ensuite la procédure ainsi créée. Cela marche impec!

Il ne me manque maintenant qu'une combine pour effacer le contenu de mon module une fois que j'ai exécuté mon schmilblic, et là je sèche!!

Quelqu'un pourrait-il m'aider??

Une autre solution serait de créer un module, d'y exécuter le code prévu comme décri ci-dessus et enfin de supprimer le module ainsi créé: Le hic est que je ne sais ni comment créer un module par vba, ni même le supprimer!

Au final je pense donc que de vider le contenu de mon module est la solution la plus simple pour moi mais.....

Voili et merci

Julius

salut,
je suis intéressé par cette façon de faire, tu peux nous montrer un exemple de code de ce que t'as fait avec AddFromString ?

merci

Pas de problème,

en résumé j'ai une table qui contient les codes que je souhaite exécuter et un petit formulaire qui appelle le schmiblic. Pour l'instant vous verrez que je travaille avec des variables test et autres, le code n'est pas terminé mais je pense qu'il est suffisent pour comprendre le mécanisme.

voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Private Sub test_Click() Dim script As String, mdl As Module   Set mdl = Modules("m_test")   'ici je vais juste chercher le code que j'aimerais exécuter script = DLookup("[liste_script]", "t_liste", "[liste_ref] = 3")   'ajout du code en question dans le module que j'ai choisi plus haut 'ce code est simplement ajouter dans une procédure publique que je puisse l'exécuter par la suite mdl.AddFromString "Public Sub Test()" + vbCrLf + script + vbCrLf + "End Sub"   'appelle de la procédure qui elle-même appelle la procédure créée ci-dessous Call execute End Sub   Private Sub execute() Dim nb As Long   'compte le nombre de lignes de mon module nb = Modules("m_test").CountOfLines   'exécution du code inséré Call m_test.test   'suppression des lignes du module pour que ce dernier soit clean lors de la prochaine exécution Modules("m_test").DeleteLines 1, nb End Sub

---

Voili, en espérant que cela sera utile à certain.

Une bonne journée à toutes et tous

Julius

Avec cette méthode pas de compilation Accde possible.

oui certes.. mais elle fonctionne!

Me suis vraiment galéré avec Eval() et Run() du coup quand j'ai vu que cela fonctionnait comme ça suis pas allé vois bien plus loin......

Citation:

---

Envoyé par funkyjul

oui certes.. mais elle fonctionne!

---

Je n'en doute pas, si tu n'as pas besoin de protéger ton application avec la compilation c'est une bonne solution. ;)

Je disais ça à titre informatif, loin de moi l'idée d'imposer quoique ce soit.