Discussion :

[Salokindx]

Bonjour à tous,

Comme indiqué dans le titre, je reçois une erreur (de type 75) lorsque je change le nom de mon UserForm.

Pour être précis, je crée mon UserForm dans mon code et je souhaite lui attribuer un nom particulier. Seulement, si cela marche la première fois, il s'avère que l'erreur apparaît les fois suivantes... Apparemment, je ne peux pas attribuer un nom à mon UserForm si ce nom a déjà été attribué auparavant.

Voici mon code:

Code :

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

1
2
3
4
5
6
 
Dim Fiche1 As Object
Set Fiche1 = Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_MSForm)
With Fiche1
.Name = "Sélection_module"
End With

Je tiens à préciser qu'avant de relancer cette partie de mon code, je supprime l'UserForm précédent mais cela ne suffit pas pour permettre au nouvel UserForm de prendre le nom que je veux lui attribuer...

Si quelqu'un peut me donner une piste à suivre pour contourner ce problème...

Merci d'avance pour votre aide.

Niko

[patricktoulon]

bonjour


comment supprime tu le userform precedeant?

tu pourrais commencer par
set fiche1 =nothing
car dans ton code si tu met set quelquechose tu ne peu pas le refaire une deuxieme fois car meme si tu suprime le usf l object fiche1 existe toujours


au plaisiir

[Salokindx]

Je supprime l'UserForm en faisant bouton droit, puis supprimer.

Pour ce qui est de rajouter le Set Fiche1 = Nothing, il faudrait que je le mette où dans mon code? Car j'ai essayé à divers endroits, et ça ne change rien...

Merci pour ta réponse en tout cas.

Niko

[zyhack]

Bonjour

ce n'est pas le plus propre mais essaye en mettant cette ligne juste avant la création de ton userForm

Code :

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

If Not Fiche1 Is Nothing Then Set Fiche1 = Nothing

[Salokindx]

Bonsoir,

J'ai bien rajouté la ligne que vous m'avez proposé juste avant la création de mon UserForm.

Il s'avère que si aucun UserForm n'a été créé avant avec le même nom que je souhaite donner au nouveau, ça marche, mais dès que je supprime l'UserForm (en faisant clic droit, et supprimer UserForm) et que je tente de relancer cette portion du code, il me met une erreur 75 (Erreur d'accès Chemin/Fichier).
Si je lance ce code, sans supprimer l'UserForm possédant le même nom, il me donne une erreur 50135 (Erreur définie par l'application ou par l'objet).

J'ai l'impression que le problème est dû au fait que j'essaie de créer un UserForm en lui donnant un nom que possède ou a possédé déjà un autre UserForm, et ce, que je supprime ou non l'UserForm en question...

Je vous avouerai que je ne vois pas trop comment contourner tout ça...

Pour rappel, mon code est devenu:

Code :

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

1
2
3
4
5
6
7
 
Dim Fiche1 As Object
If Not Fiche1 Is Nothing Then Set Fiche1 = Nothing
Set Fiche1 = Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_MSForm)
With Fiche1
.Name = "Sélection_module"
End With

Merci à tous ceux qui pourront m'aider.

Niko

[patricktoulon]

i faut bien entendu que tu mete tout ca hors de ton usf
parceque quand tu le suprime les macros partent avec bien entendu

dans un module normal c'est mieux


au plaisir