[VBA-Excel] Bug dans Import de boite de dialogue incompréhensible

bonjour,
j'ai fait un petit programme qui ouvre une boite de dialogue.
Mon code est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Sub tt()   Dim stChemin, stNomFichier(1), stUrl As String stChemin = "C:\tt\" stNomFichier(0) = "toto" stNomFichier(1) = "fils" stExtenstion = ".frm"   bt = bIsDejaOuvert(stNomFichier(0))   If Not bt Then For i = 0 To 1 stUrl = stChemin & stNomFichier(i) & stExtenstion ThisWorkbook.VBProject.VBComponents.Import (stUrl) Next End If toto.Show End Sub   Function bIsDejaOuvert(ByVal stFileName As String) As Boolean 'Fonction ok ! bIsDejaOuvert = False With ThisWorkbook.VBProject.VBComponents i = 1 While (i <= .Count) And bIsDejaOuvert = False If LCase(.Item(i).Name) = LCase(stFileName) Then bIsDejaOuvert = True i = i + 1 Wend End With   End Function

---

Le problème est le suivant. Quand les feuilles ne sont pas chargées, il les charge correctement, mais refuse de lancer la boite de dialogue nommée toto.
J'ai une "erreur 424 : Objet requis". Or mes boites de dialogues sont bel et bien chargées. je ne comprends pas ce bug.
En plus ça fonctionne très bien quand les feuilles sont déjà importées !

bonjour

Tu peux utiliser cette syntaxe

Code:

---

1 2 3 4 5 6

Dim stUrl As String   stUrl = "C:\toto.frm" ThisWorkbook.VBProject.VBComponents.Import (stUrl)   VBA.UserForms.Add("toto").Show

---

michel

Merci C'est au poil!!!
juste deux questions subsidiaires.
Si ce n'est pas une boite du dialogue mais un module et que je veuille lire une fonction qui est dedans?

et j'aimerai savoir comment je puis faire pour retirer après l'avoir utilisé cette boite de dialogue?
je n'ai trouvé que ça est c'est pas super agréable a lire :

Code:

---

1 2 3

Sub FermeMoi() ThisWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents(stNomFichier) End Sub

---

Tu peux aussi l'écrire de cette manière (mais le code reste identique)

Code:

---

1 2 3

With ActiveWorkbook.VBProject .VBComponents.Remove .VBComponents("UserForm1") End With

---

michel

Merci.
Mais en fait je vois que j'ai plusieurs soucis.
Si c'est un module qui utilise une classe, c'est fort pénalisant... car dans ma classe je dois prévoir tous les cas possibles et imaginables...

Comment faire alors pour mettre un module et une classe?