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
Partager