Bonjour,
J'essaye d'ajouter du code dans un formulaire par la méthode AddFromString avec ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim frm As Form, mdl As Module
Dim Code As String
Set frm = Form_FormTest
Set mdl = frm.Module
 
Code = "Private Sub Commande2_Click()" & vbCrLf
Code = Code & "MsgBox " & Chr(34) & "OK" & Chr(34) & vbCrLf
Code = Code & "End Sub"
mdl.AddFromString Code
Le code est bien ajouté dans le module du FormTest mais quand je clique sur le bouton Command2, rien ne se passe (même après avoir enregistré). Aurais je oublié quelque chose.
Merci d'avance