Only user-defined types defined in public object modules can be coerced to or from a variant or passed to late [Résolu]

[Vorillyan]

Bonjour à tous,

J'aurais souhaité avoir des conseils sur la manipulation et la structuration de données.

Description :
Dans un fichier de données, je manipule un certains nombres d'entités toutes du même type. Ces entités possèdent certains attributs :

Entité :
Nom
Nombre de Composants
Liste des Composants, ces Composants étant des objets.

L'idée est de parcourir le fichier de données et pour chaque entité d'en extraire les différents attributs. Chaque entité est ensuite stockée.
Et finalement toute la liste de ces entités est à nouveau parcourue pour récupérer leurs attributs.

Ebauche :
Voici la voie sur laquelle je suis parti mais je tombe sur un message d'erreur que j'avoue avoir du mal à comprendre. Comme ce n'est peut être pas la meilleure des solutions, je reste ouvert à toute autre suggestion.

> définition d'un type personnalisé pour les entités
> récupération des attributs des entités
> stockage dans une collection

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Type tEntite
    Name As String
    NbComposants As Integer
    Composants As Variant
End Type
 
Sub Principal ()
	Dim oEntite As tEntite
	Dim cEntites As New Collection
	Dim vComposants() As Variant
    	ReDim vComposants (0)
	...
	Le nombre d'entités NbEntites a été récupéré
	For i = 1 to NbEntites
		Le nombre de composants NbComposants a été récupéré		
		For j = 1 to NbComposants
			ReDim Preserve vComposants (UBound(vComposants) + 1)
			vComposants (i) =  ExtractionComposants (i)	
		Next j
	Next i
	cEntites.Add oEntite, CStr(i)
End sub

Le message d'erreur suivant survient alors :

Compile error : Only user-defined types defined in public object modules can be coerced to or from a variant or passed to late-bound functions.

Par avance, merci de votre aide.

[lenovo49]

fais un essai sans:

Code :

Dim oEntite As tEntite

et plutôt a avec:

Code :

 Dim oEntite

Ca donne quoi??

[Vorillyan]

Bonjour lenovo49,

Avec un Dim générique, cela bloque sur un Run-time error '91' : Object variable or With Block variable not set lors de l'affectation du premier attribut de l'entité : oEntite.Name.

[AlainTech]

Bonjour,

Je sais que ça ne répond pas à ta question mais je te conseille très fortement de lire ce tuto.

Il m'a permis de développer une application de gestion de la prioritisation des pannes d'appareils répartis dans un millier de sites.

[Vorillyan]

Bonjour AlainTech,

Tout d'abord l'explication du pourquoi est ce que l'ébauche ne fonctionnait pas : http://http://support.microsoft.com/kb/184898

Par ailleurs j'avais lu le tutoriel avant de poster mais il ne m'avait pas semblé répondre à mes questions.
Je l'ai donc relu en détail et effectivement ...
En passant pas un module de classe cela fonctionne parfaitement !

Un grand merci donc.
Et une petite question avant de clore le sujet :
Lorsque je regarde dans Watches mon objet appartennant à la classe créée, qui a comme attributs Id et Name par exemple, je vois tout en "double" :
Id
mId
Name
mName
Est ce normal ?

Cordialement

[Arkham46]

bonjour,

Envoyé par Vorillyan

Lorsque je regarde dans Watches mon objet appartennant à la classe créée, qui a comme attributs Id et Name par exemple, je vois tout en "double" :
Id
mId
Name
mName
Est ce normal ?

ce n'est pas en double, ce ne sont pas les mêmes noms...
mettre en private ce qui ne doit pas être accessible à l'extérieur de la classe

[Vorillyan]

Merci Arkham46 pour ces précisions.

Merci pour votre aide.
Post clos.

Vorillyan.