Discussion :

[aalex_38]

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

[LeForestier]

Bonjour,
Je n'ai probablement pas bien saisi ton problème car..

Code :

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

1
2
3
4
Sub essai_renommer_usfII()
Set form = Application.ThisWorkbook.VBProject.VBComponents.Add(3)
form.Name = "essais"
End Sub

Crée un UF et il est persistant.
Si tu veux l'enlever (pour éviter d'en créer plusieur) avant de sauver tu peu alors employer ton Remove.
A+

[aalex_38]

Bonjour,


Mon problème c'est lorsque je veux de nouveau générer l'USF, il semble que le nom persiste même après le remove.

Concretement, je creé un userform nommé "USF1" par exemple => OK
Je supprime l'userform et le recrée toujours avec la même procédure => KO, il me crée un userform nommé "Userform1" puis "Userform2"...
Si je redemmare excel ou que je sauve le classeur, => OK

Donc comme j'ai cette solution de contournement, le problème n'est pas majeur, je voudrai savoir quand même s'il n'existe pas une autre solution de raffraichissement.

Edit: l'exemple que j'ai donné est un exemple pour illustrer ce cas, ce que je suis en train de faire s'inscrit dans un projet plus complet.

[Pierre Fauconnier]

Excel garde en mémoire les noms "génériques" des objets qu'il crée. C'est pourquoi, après avoir créé un userform1, il crée un userform2, même si le 1 a été supprimé.

Il en est de même pour les contrôles posés sur un userform, pour les feuilles de calcul, etc...

Où est le problème puisque tu vas renommer ton userform?

[aalex_38]

Bonjour,


En fait le titre de mon post n'est pas très explicit !
C'est que pendant la création, il n'accepte pas de donner le nom que je veux au deuxième passage. (suppression/Creation puis suppression/creation)

je voulais juste savoir s'il existait un moyen de contourner ce problème pour ma culture générale.

Comme l'enregistrement du classeur entre les deux passages résoud le problème je considère le post comme résoly.
Merci.