Bonjour tout le monde,

j'ai un code qui ajoute un control dans une forme (USFModel).
Lorsque j'execute ce code, tout se passe bien, et l'affichage de ma forme contient bien le control textbox ajouté et la caption du commandButton est bien modifiée.

Lorsque je ferme ma forme, je retourne dans le VBEditeur ma forme n'est pas modifiée. Pourquoi donc??

Je cherche depuis ce matin si il aurait un code genre me.save mais je ne trouve pas et lorsque je lis les codes sur les forums, personne ne relève ce problème

Any idea??

d'avance merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Private Sub aa()
     Dim obj As Object
 
   '  Load USFModel
 
    USFModel.CommandButton1.Caption = "coucou"
 
    Set obj = USFModel.Controls.Add("forms.Textbox.1")
    With obj
        .Name = "monTextBox"
        .Left = 140
        .Top = 30
        .Width = 50
        .Height = 20
        .Visible = True
    End With
    Set obj = Nothing
' Unload USFModel
 USFModel.show
 
End Sub