Probleme de "ctype" avec vba (pro_engineer)

Bonjour,

Je suis en train d'écrire (ou plutot d'essayer) un petit programme sous VBA excel pour récuperer des données pro_engineer via l'api fourni.
Dans la doc, cela donne un truc du genre

Dim asynconn As New pfcls.CCpfcAsyncConnection

Dim conn As pfcls.IpfcAsyncConnection

Dim session As pfcls.IpfcBaseSession

Dim descModel As IpfcModelDescriptor

Dim descModelCreate As CCpfcModelDescriptor

Dim model As IpfcModel

Dim param As IpfcParameter
Dim paramValue As IpfcParamValueSet conn = asynconn.Connect("", "", ".", 5)

Set session = conn.session

Set descModelCreate = New CCpfcModelDescriptor

Set descModel = descModelCreate.Create(EpfcModelType.EpfcMDL_DRAWING, "essai.drw", dbnull)

Set model = session.RetrieveModel(descModel)

'recuperation de la description du plan:

descrip = model.CommonName

'recuperation des autres données du plan

paramName="indice_du_plan"

param = CType(model, IpfcParameterOwner).GetParam(paramName)

etc....


Le problème, c'est que ctype ne semble pas éxister dans vba...
Et la doc n'en parles pas...
:(
Que puis-je faire??



L_arsene ;)

salut,

il n'y a pas de ... cast générique en VBA...
tu vas surement devoir déclarer param as variant ou as object

ceci aura malheureusement pour effet de ne plus afficher l'intellisense

++

---

Le problème est que "model" à des methodes et propriétées (comme "CommonName") quand c'est un "IpfcModel" et d'autres (comme "GetParam") quand c'est un "IpfcParameterOwner".

Comment je fait pour que cela marche s'il est pas casté comme il faut?

tu peux essayer de vérifier avec if typeof param is ipfcmodel then ....