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.
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 =)