Module de classe et late binding

Bonjour à tous!

Aujourdui je suis confronté à un petit problème: J'ai réalisé un userform qui me permet de tester si les références nécessaires à mon projet sont activées.

ref1

Pour cela, je crée dynamiquement mes frames dans mon userform, et j'y ajoute des évènements par la méthode des modules de classe.

'Code dans mon userform (EXTRAIT)
'Hors procédure
Private tableauFrame() As New classeFrameReference
'Initialize
'du code pour ajouter la frame au userfom, stockée dans une variable maFrame
Set tableauFrame(UBound(tableauFrame, 1)).frame = maFrame

Jusque là aucun problème, cependant, si la référence à MSForms n'est pas chargée, le module de classe ne fonctionne pas

'Code dans mon module de classe (EXTRAIT)
Public WithEvents frame As MSForms.frame

Ce module de classe ne fonctionne pas si la référence à MSForms n'est pas activée, ce qui rend une partie du Userform inutile (un formulaire pour tester les références qui ne fonctionne pas si les références sont pas faites...) je voulais donc savoir si c'était possible de faire une sorte de 'late binding' pour éviter ce problème!

Une sorte de

Public WithEvents frame As Variant // as Object("MSForms")

Merci d'avance =)

Rechercher des sujets similaires à "module classe late binding"