Discussion :

[JPJHT]

Bonjour,

J'ai besoin de générer automatiquement des Formulaires, ainsi que leurs codes VBA associés.

Je sais, en VBA, créer un Formulaire avec ses contrôles, mais je ne sais pas comment lui adjoindre le code VBA correspondant : je suis capable de générer un fichier "Form_XXX.cls" contenant le code associé à chaque événement, mais alors comment l'importer ?

Si j'essaie "Importer un fichier...", l'import est refusé parceque le nom du fichier commence par "Form_" et le fichier est importé comme "Module de classe" - sans relation avec mon formulaire...

Quelqu'un pourrait-il m'aider ?

Par avance, un grand merci

[Invité]

Bonjour et bienvenu sur le forum de DVP.

Je vais te fournnir un lien vers un tuto de SilkyRoad, ce tuto te permet de créer du code pour créer du code .

Il s'applique à Excel pour les exemples, mais tu peux tout à fait l'adapter à Access.

http://silkyroad.developpez.com/VBA/VisualBasicEditor/

De plus un petit tour dans la te donnera quelques trucs.

Starec

[JPJHT]

Merci !

Je vais essayer de suite...

[JPJHT]

SilkyRoad m'a effectivement permis de trouver la solution ...
Le test ci-dessous fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub MonTest_AjoutDeLignes()
    ' On va ajouter le contenu de "Lignes.txt" à Form_FAD_Mod_Bis
    Dim VBComp As VBComponent
    Dim LeCode As CodeModule
    Set VBComp = Application.VBE.ActiveVBProject.VBComponents("Form_FAD_Mod_Bis")
    Set LeCode = VBComp.CodeModule
    LeCode.AddFromFile "C:\_Plateforme\_Tempo\Lignes.txt"
    Set LeCode = Nothing
    Set VBComp = Nothing
End Sub

Merci beaucoup !