Discussion :

[Cribest]

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 :

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

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

[SilkyRoad]

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

[Cribest]

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 :

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

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

[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

[SilkyRoad]

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