Cast d'un objet COM

**r.morel** · 10/10/2017, 17h33

Bonjour,
Je travail sur AddIn Excel VSTO avec VS2017.
J'ai créé une Class:

Code :

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

1
2
3
4
5
6
7
Imports Microsoft.Office.Interop.Excel
Public Class ClasseurNomenclature
    Inherits WorkbookClass
 
'(...)
 
End Class

Ensuite lors de l'utilisation :

Code :

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

1
2
Public MyClasseurNom As ClasseurNomenclature
MyClasseurNom = Globals.ThisAddIn.Application.ActiveWorkbook

Je rencontre l'erreur sur la seconde ligne :

L'exception System.InvalidCastException s'est produite
HResult=0x80004002
Message=Impossible d'effectuer un cast d'un objet COM de type 'Microsoft.Office.Interop.Excel.WorkbookClass' en type de classe 'ExcelAddIn1.ClasseurNomenclature'. Les instances de types qui représentent des composants COM ne peuvent pas être castées en types différents représentant des composants COM ; toutefois, elles peuvent être castées en interfaces tant que le composant COM sous-jacent prend en charge les appels QueryInterface pour l'IID de l'interface.
Source=<Impossible d'évaluer la source de l'exception>
Arborescence des appels de procédure :
<Impossible d'évaluer l'arborescence des appels de procédure de l'exception>

Merci par avance.

**Sankasssss** · 13/10/2017, 08h04

Bonjour,

Tu ne peux pas caster un objet "parent" en objet "enfant".
Tu peux seulement le faire dans l'autre sens.
Ex :

Code :

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

1
2
3
4
5
6
7
 
        Dim myObject As New Object
        Dim myException As New Exception()
        myObject = myException ' Marche
        myException = myObject ' Ne marche pas
        myObject = New Exception() ' Marche 
        myException = myObject ' Marche

**r.morel** · 13/10/2017, 08h51

Salut,
Merci pour ta réponse.
J'avoue cependant être un peu dépassé.
Pour tenter de clarifier :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim myObject As New Object 'Parent
Dim myException As New Exception() 'Enfant
 
myObject = myException ' Parent = enfant - Marche
myException = myObject ' Enfant = parent - Ne marche pas 
 
myObject = New Exception() ' Parent = enfant - Marche
myException = myObject ' Enfant = parent - Marche

Pourquoi le second Enfant = parent fonctionne ? A cause du new ?

Devrais-je alors faire cela ?

Code :

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

1
2
3
 
Public MyClasseurNom As New ClasseurNomenclature
MyClasseurNom = Globals.ThisAddIn.Application.ActiveWorkbook

**Sankasssss** · 13/10/2017, 13h57

En fait il faut bien distinguer deux choses, la variable qui va contenir l'objet et l'objet lui même (l'instance de la classe).

On type une variable pour dire ce qu'elle va contenir.
Quand tu fais :

Code :

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

Public MyClasseurNom As New ClasseurNomenclature

C'est l'équivalent de :

Code :

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

1
2
Public MyClasseurNom As ClasseurNomenclature ' Création de la variable
MyClasseurNom = New ClasseurNomenclature 'création de l'objet que l'on assigne à la variable

Le soucis est qu'en déclarant la variable d'un type enfant, tu dis que tu peux accéder à tous ces membres public (friend et protected aussi).
Donc si tu as rajouté des méthodes a ce type "enfant", elle seront accessible sur cette variable. Ex :

Code :

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

MyClasseurNom.MaNouvelleMethodeEnfant

or si tu essayes d'attribuer à cet objet un type parent, ce dernier n'a pas cette méthode.

Code :

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

1
2
MyClasseurNom = Globals.ThisAddIn.Application.ActiveWorkbook
MyClasseurNom.MaNouvelleMethodeEnfant ' N'existe pas sur la classe parent contenue dans ma variable

Ça n'a donc pas de sens et il est normal que le compilateur l'interdise.

Par contre dans l'autre sens pas de soucis. L'enfant expose tous les membres de son parent. Tu peux donc mettre un enfant dans une variable parent. Ex :

Code :

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

1
2
3
4
5
6
7
Dim myObj as Object = New ClasseurNomenclature
debug.WriteLine(obj.GetHashCode()) ' Marche car la variable de type Objet à cette méthode et son enfant aussi de part l'héritage
debug.WriteLine(obj.UneFonctionDeClasseurNomenclature()) ' Ne marche pas car pas connue de la variable de type objet
debug.WriteLine(CType(obj,ClasseurNomenclature).UneFonctionDeClasseurNomenclature()) ' marche car on lui dit le type que c'est et que c'est bien une méthode de ce type
debug.WriteLine(CType(obj,WorkbookClass).UneFonctionDeClasseurNomenclature()) ' ne marche pas car cette méthode n'existe pas sur la classe parent
myObj = new WorkbookClass ' Marche car WorkbookClass est bien enfant d'Objet
debug.WriteLine(CType(obj,ClasseurNomenclature).UneFonctionDeClasseurNomenclature()) ' ne marche pas car l'objet contenu dans obj n'est pas de ce type ou d'un de ces type enfants mais bien un parent

Il n'y pas donc pas moyen de mettre le parent Globals.ThisAddIn.Application.ActiveWorkbook dans ta variable enfant. Avec ou sans le new.

**r.morel** · 13/10/2017, 14h45

beaucoup pour ta réponse constructive.

En fait il faut bien distinguer deux choses, la variable qui va contenir l'objet et l'objet lui même (l'instance de la classe).

Je pensais faire la différence. Mais en fait je me trompait!

Du coup quel conseil pour ajouter des fonctionnalités spécifiques à la classe WorkBook ?
Qu'en pensez vous si j'englobe la classe dans mon objet spécifique :

Code :

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

1
2
Public Class ClasseurNomenclature
Public Property ClasseurExcel As Workbook

Du coup je peux :

Code :

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

1
2
Public MyClasseurNom As New ClasseurNomenclature
MyClasseurNom.ClasseurExcel = Globals.ThisAddIn.Application.ActiveWorkbook

**Sankasssss** · 13/10/2017, 15h17

C'est effectivement une solution. Ça s'appelle l'encapsulation.
Dans le new tu peux mettre un paramètre de type Workbook et initialiser directement ta propriété dans le constructeur. De cette manière tu obliges de construire correctement ton objet ClasseurNomenclature et tu t'assures de ne pas oublier d'affecter la propriété.