Bonjour,


Je suis en train de créer un userform en dynamique, au premier passage pas de problèmes, par contre ensuite l'USF n'est pas renommer, sauf si je sauve le classeur, existe-t-il d'autres solutions ?

a titre d'exemple :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub essai_renommer_usfII()
nombook = "Creation USF.XLS"
Set form = Application.Workbooks(nombook).VBProject.VBComponents.Add(3)
 
On Error Resume Next
With Workbooks(nombook)
.VBProject.VBComponents.Remove .VBProject.VBComponents("NomForm")
.Save 'Ne fonctionne pas plusieurs fois sans cette ligne
End With
On Error GoTo 0
form.Name = "NomForm"
Set form = Nothing
 
End Sub