Discussion :

[mac&cheese]

Bonjour,

Niveau débutant sur ce langage...

Dans le cadre du développement d'une macro Excel, j'utilise un framework propriétaire pour lequel j'ai besoin de caster des objets.

J'ai repris des exemples vb.net officiels du framework que j'arrive à transposer et adapter sans soucis SAUF pour les appels CType()... je crois comprendre que ce n'est pas une fonction native du VBA.

J'ai essayé d'ajouter une référence à mscorlib.dll (en pensant que celle-ci contiendrait la définition de CType()) mais sans succès (message d'erreur quant à l'impossibilité d'ajouter la référence). Ai-je un moyen de caster (simple de préférence) des objets d'un type non-standard vars un type non-standard?

Pour information, j'ai également essayé d'utiliser TryCast et DirectCast, sans succès.

Merci pour votre aide!

M&C

[Invité]

Salut,

Je pense que ta ou tes question(s) sont trop vague(s) pour pouvoir vraiment répondre.

Pour les conversions des types en VBA, c'est dans VBA.Conversion sinon.
ex.: VBA.CInt()

Mais je suppose que ce n'est pas ce que tu cherche ?

[el_slapper]

VBA n'est pas franchement un langage objet(il n'y a même pas d'héritage), même si on peut faire des objets. Je ne connais pas de moyen direct de faire un cast purement dynamique entre 2 classes différentes. Par contre, il y a moyen de tricher, mais c'est au cas par cas(et généralement compliqué, c'est souvent du donnée par donnée). Pour voir si c'est possible, il nous faut beaucoup plus de détails.

[mac&cheese]

Bonjour et merci pour vos réponses.

Voici un bout du code que j'utilise (pour information il s'agit du SDK BusinessObjects XI 3.x) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim mySchedulingInfo As SchedulingInfo
mySchedulingInfo = myreport.SchedulingInfo 
mySchedulingInfo.RightNow = True 
mySchedulingInfo.Type = CeScheduleType.ceScheduleTypeOnce 
 
Dim rfo As ReportFormatOptions = myreport.ReportFormatOptions 
rfo.Format = CeReportFormat.ceFormatPDF 
rfo.PDFFormat.ExportAllPages = True 
 
query = "SELECT SI_DEST_SCHEDULEOPTIONS, SI_PROGID FROM CI_SYSTEMOBJECTS " & _ 
            "WHERE SI_PARENTID=29 AND SI_NAME='CrystalEnterprise.DiskUnmanaged'" 
 
Dim destinationInfoObjects As InfoObjects = myInfoStore.Query(query) 
myInfoObject = destinationInfoObjects(1) 
 
Dim destinationPlugIn As DestinationPlugin
Set destinationPlugIn = CType(myInfoObject, DestinationPlugin) 
Dim diskUnmanaged As DiskUnmanaged
Set diskUnmanaged = CType(destinationPlugIn, DiskUnmanaged) 
Dim destinationOptions As DestinationOptions
Set destinationOptions = diskUnmanaged.ScheduleOptions 
Dim diskUnmanagedOptions As New DiskUnmanagedOptions(destinationOptions)

En dehors du fait que j'ai également un problème avec l'utilisation du "New", ce sont les CType() ici qui me posent problème.

Le SDk met à disposition une fonction de cast pour certains objets (la fonction PluginInterface) mais ce n'est pas le cas pour les objets ci-dessus.

M&C