Instancier un nouvel Objet de Classe avec un String

Bonjour,

J'ai plusieurs modules de classe :
Obj_Scn
Obj_Bat
...
A partir d'un string je voudrais pouvoir créer le type décrit d'objet dedans.

Ex. :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Toto() Dim monString as String Dim Obj as Object   monString = "Obj_Scn"   set Obj = new monString <-- Forcément ça marche pas   end sub

---

J'ai essayé avec vbComponents mais apparemment ça ne renvoi pas une classe objet.
Bref, je ne sais pas comment faire.
Ah si, mais je souhaiterai éviter, avec un select case

Merci de faire contribuer vos neurones pour m'aider.

Cordialement.

Cribest

bonjour

peux tu préciser l'objectif de ta procédure ?

s'il s'agit de réaliser une compilation conditionnelle, tu pourrais tester ce lien :
http://excel.developpez.com/faq/?pag...sseCompilCondi


bonne journée
michel

Bonjour,

Merci pour ta réponse.
Ce n'est pas vraiment une compilation conditionnelle que je souhaite faire, mais plutôt une compilation implicite.
En fait, je sauvegarde plusieurs types d'objets classes dans une feuille Excel. Et je souhaite les restaurer en mémoire lors de l'ouverture. Je stocke le type exact de l'objet dans une cellule qui me donne mon String avec le type de mon objet.
Il serait facile de faire un select case avec tous les types d'objets, mais cette liste va évoluer et je prévois pour que l'on puisse ajouter des objets sans modifier le reste du code.
J'ai essayé ça aussi :

Code:

---

1 2 3 4 5

Dim Type_Obj As String Dim Obj_Tmp As Object Type_Obj = "Obj_Scn" set Obj_Tmp = new ThisWorkbook.VBProject.VBComponents(Type_Obj)

---

Mais il me laisse même pas sortir de la ligne qui reste en rouge.
J'ai fait d'autre essais mais tous infructueux.
Merci de ton aide.

Cordialement.

Cribest

Bonjour,

J'ai toujours pas trouvé comment faire, si qq'un peut me diriger vers une solution. J'ai aussi essayé avec GetObject, mais ça ne marche pas avec les modules de classe.
Merci de votre aide.

Cribest

bonjour

malheureusement, je n'ai toujours pas compris ce que tu souhaites réaliser. e n'ai pas réussi à faire le lien entre les exemple de procédures placés dans tes deux précédents messages.

bonne journée
michel