Passage par macro d'une matrice d'objets de VB.NET vers Excel VBA

[__bv__]

Bonjour,

J'ai un projet VB.NET qui attache une feuille Excel. Dans le projet VB, j'utilise une classe perso avec une vingtaine de membres de données essentiellement numériques.
Un tableau dynamique d'objets de cette classe est instanciée dans VB.NET, j'y fais un bon nombre de calculs.
Pour m'assurer le passage de données vers Excel, j'ai copié la définition de ma Classe dans un autre projet de type Class Library, et j'ai ajouté une Référence à la feuille Excel (XLSM) pour pouvoir l'utiliser. J'ai d'abord pensé faire un copié-collé de la définition de la Classe dans VBA mais ça ne fonctionne pas.
Dans le programme VB.NET, je passe un 'pointeur' à Excel grace à une macro, et la macro récupère bien les données.

Toutefois, après plusieurs essais, il s'avère que je n'arrive à passer les données que si le type de l'objet (la matrice) n'est pas définie dans la macro (donc Variant).
Comme il me semble qu'il n'y pas de 'typecasting' dynamique en VBA, je ne sais pas comment faire mieux.
Bref, j'ai mes données mais je n'ai pas accès aux membres de la classe pourtant correctement définie (enfin je pense...), et ma question est la suivante:
Comment faire la même chose plus 'proprement', c'est à dire, pouvoir retrouver la classe sous VBA comme je l'utilise en VB.
Merci d'avance
Bruno

[MABROUKI]

bonkour

Il faut que ton class soit defini comme un Class Com donc visible en Com pour qu'il soit référencé par VBA (outils-> ajouter une référencé )

sur ce lien intitulé "Walkthrough: Creating COM Objects with Visual Basic | Microsoft Docs" (creation pas à pas d"un Com Class)

https://docs.microsoft.com/en-us/dot...ng-com-objects
bon code...

[Phil Rob]

Je crois que la vraie question est : Comment référencer dans VBA Excel la dll écrite et compilée sous VS ?
Il semble simple d'ajouter une référence (Outils/Références.../Parcourir ...),
mais le message en retour est "Impossible d'ajouter une référence au fichier spécifié" !
Je veux bien la réponse ...

[__bv__]

Je ne me suis sans doute pas exprimé clairement dans mon premier message.
Tout fonctionne plus ou moins comme je le voulais:
La classe (importée dans mon projet a été compilée de manière séparée en COM et j'y accède dans Excel après l'avoir ajoutée en référence.
Le passage de données par macro marche parfaitement. La seule chose est que la macro reçoit la matrice en référence comme une variable non définie même si lorsque je teste avec TypeName elle semble bien être du type la classe.
Je peux accéder à toutes les méthodes mais VBA ne reconnait pas de facto le type. Il faut donc connaître la structure de la classe pour l'utiliser dans VBA.

[Phil Rob]

OK, alors tout va bien chez toi (ou presque) et c'est chez moi que ça ne va pas cette fois : Comment fais-tu pour référencer ta DLL dans le projet VBA ?
Je conçois que tu doives bien connaître ta classe pour pouvoir l'utiliser et je voudrais tester, mais je n'ai pas accès à ma DLL !
Voici mon problème en quelques illustrations :

Si tu as de quoi me dépanner ...

[__bv__]

As tu compilé ta Class Library (DLL) avec l'option Com Interop ?
https://www.screencast.com/t/EyflS9VWucZ
Ensuite dans Excel VBA, il suffit de la référencer avec le fichier TLB.

[rv26t]

Bonjour,

Je ne sais pas si cela pourra t'aider, mais voici en lien deux sujets traitant de ce genre de problèmatique.
Echange d'info vb.net vb6 - post 27.
et
exe vb6 et dll vb.net - post 10.
Tu trouvera peut être des similitudes avec vba ou des pistes.

A+

[Phil Rob]

Merci Bruno, merci rv,
je vais travailler un peu ces pistes.
Très bonne journée à vous ...

Suite ...

@Bruno
Ta copie d'écran super explicite m'a permis de résoudre le référencement de ma dll dans Excel.
Effectivement, il faut connaître la classe pour pouvoir l'exploiter dans Excel.
J'ai tenté la documentation xml du code de la DLL mais Excel n'y voit rien.
...

[__bv__]

Hervé, j'ai parcouru les liens et je me pose une question sur le même sujet (pourquoi je n'ai pas accès aux 'accessors' dans VBA):
Pourrait il y avoir une non-équivalence (genre Integer dans VB.NET et Long en VBA) qui troublerait VBA et empêcherait la bonne interprétation de la classe même si par le casting dynamique de ces types de base, tout marche en fin de compte ?

[__bv__]

Phil,
Je n'aurais jamais pensé à toucher au XML ! Comme mentionné dans mon dernier message, est ce que ça pourrait être dû à une correspondance imparfaite des types ?

J'ai encore une question subsidiaire.
Ma matrice arrive donc bien dans VBA et les calculs vont bon train mais c'est toujours l'affichage dans Excel est qui reste très lent.
Je code plusieurs timers en VBA pour afficher les données avec des priorités différentes, par exemple MaMatrice(i).DonnéeUrgente sur un Timer 1 seconde, et MaMatrice(i).DonnéeMoinsUrgente sur un timer 5 secondes etc, "i" pouvant couvrir des centaines d'enregistrements.
Quelle serait la méthode la plus efficace pour copier le contenu complet d'un champ sur une colonne d'une feuille Excel ?

[Phil Rob]

A mon avis, une boucle VB qui balaye un Range de cellule Excel sera la solution la plus rapide.
Je pense d'ailleurs que, hormis quelques opérations très exceptionnelles, tout devrait être fait sous VB et Excel ne devrait plus servir que d'interface d'affichage.
...

[__bv__]

En fait je crée un serveur de données avec des calculs fondamentaux assez lourds en VB.NET mais je veux laisser une certaine flexibilité à l'utilisateur côté Excel.
Quoiqu'il en soit, c'est bien l'affichage qui me préoccupe ici.
Pour le moment, j'en reste à une version avec des Timers pour limiter la fréquence d'affichage. Quand j'affiche tout en vrac, cela prend presque une seconde (proc i7 relativement rapide et 16GB RAM) pour afficher le tableau complet (30 membres, 250 enregistrements) et je trouve ça lent sachant qu'en mode "production" il pourra y avoir au moins quelques milliers d'enregistrements.
L'autre solution serait de faire appel à la macro de transfert vers Excel sur des variations de données ponctuelles et avoir peut-être moins à afficher à chaque fois.

[MABROUKI]

bonjour

C'est un faux problème que tu soulèves là ....!!!
Pour utiliser l'intellisense en VBA et accéder aux props et méthodes il suffit de
1/ déclarer ton class Perso comme un class Com
2/ le class Wrapper qui utilise un array fu class Perso.
2/ de les referencer en VBA

Supposons pour fixer les idées et ne pas débiter des neutralistes confuses & sans fin
le code suivant
1/ coté vb.net :
'code du class PersoNet

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Public Class PersoNet
    Private rnd As New Random
    Public Sub New()
        MyBase.New()
    End Sub
    Public Sub New(ByVal N As Integer)
        Me.New()
 
        IntArr = New Integer(N) {}
        DoubleArr = New Double(N) {}
        StrArr = New String(N) {}
 
        FillArrays(N)
    End Sub
    Private Sub FillArrays(ByVal NB As Integer)
        For i As Integer = 0 To NB - 1
            IntArr(i) = rnd.Next(1, 51)
            DoubleArr(i) = Math.Round(rnd.NextDouble() * 100, 2)
            StrArr(i) = rnd.Next(1, 51)
        Next
    End Sub
 
    Private m_IntArr As Integer()
    <ComVisible(True)>
    Public Property IntArr As Integer()
        Get
            Return m_IntArr
        End Get
        Set(ByVal value As Integer())
            m_IntArr = value
        End Set
    End Property
    Private m_DoubleArr As Double()
    <ComVisible(True)>
    Public Property DoubleArr As Double()
        Get
            Return m_DoubleArr
        End Get
        Set(ByVal value As Double())
            m_DoubleArr = value
        End Set
    End Property
    Private m_StrArr As String()
    <ComVisible(True)>
    Public Property StrArr As String()
        Get
            Return m_StrArr
        End Get
        Set(ByVal value As String())
            m_StrArr = value
        End Set
    End Property
End Class

code du class Wrapper declarant un array du class PersoNet

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
 
Public Class ListWrapper
    Public Sub New()
        MyBase.New()
        UnList = New PersoNet(1) {
		New PersoNet(5), 
		New PersoNet(7)}
 
    End Sub
    Private m_unList() As PersoNet
    <ComVisible(True)>
    Public Property UnList As PersoNet()
        Get
            Return m_unList
        End Get
        Set(ByVal value As PersoNet())
            m_unList = value
        End Set
    End Property
End Class

2/ cote vba on peut ecrire le code sauvant avec l'intellisense à merveille:

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
24
25
26
27
28
29
30
31
32
33
 
Private SNC  As LibClass.SimpleNetClass
Private WRAPPER   As LibClass.ListWrapper
Private Sub UserForm_Initialize()
	Call Test
End Sub
Private Sub Test()
    Dim TheInts() As Long
    Dim TheDoubles() As Double
    Dim TheStrings() As String
 
    Set WRAPPER = New ListWrapper
    Dim counter As Integer
    counter = 1
    Worksheets(1).Cells(counter, 1).Value = "instance 1"
    For Each item In WRAPPER.Unlist
        Set SNC = item
        TheInts = SNC.IntArr
        TheDoubles = SNC.DoubleArr
        TheStrings = SNC.StrArr
 
		Dim sh As Worksheet
		Set sh = Worksheets(1)
        For J = LBound(TheInts) To UBound(TheInts)
 
            sh.Cells(counter + 2, J + 1).Value = TheInts(J)
            sh.Cells(counter + 3, J + 1).Value = TheDoubles(J)
            sh.Cells(counter + 4, J + 1).Value = TheStrings(J)
         Next
         counter = 8
         Worksheets(1).Cells(counter, 1).Value = "instance 2"
    Next
End Sub

nota bene :
En Com qui est caché derrière VBA et même VB6
- tous les types valeurs de .Net son reconnus (integer;double,boolean,byte etc...)
- le type string de longueur variable
- les tableaux des types valeurs .Net ci-dessus quand ils sont déclares explicitement et même les tableaux d'objets divers Les tableaux sont castes en VBA zt VB6 en Variant

[Phil Rob]

...j'en reste à une version avec des Timers pour limiter la fréquence d'affichage...

OK, mais une intervention par seconde est beaucoup, surtout quand tu nous dis que l'affichage prends ± 1 seconde.
Vu la "rapidité" de réaction de l'utilisateur, une intervention toutes les 2 secondes serait encore bien suffisant.
Mais n'y a-t-il pas moyen de se passer de ces Timer qui "provoquent" (si je comprends bien) un affichage à interval régulier (même s'il n'y a rien de neuf à afficher) ?
Ne peux-tu rafraîchir l'affichage sur base d'une action de l'utilisateur ? Par exemple le clic d'une cellule qui a été modifiée entre temps, ou l'exécution d'une macro particulière, ou même une demande explicite de rafraichissement par l'utilisateur lui-même ?

[__bv__]

Phil, demander à l'utilisateur d'actualiser manuellement n'est pas envisageable. Même si un Timer n'est pas une très bonne solution, je continue dans cette voie.
J'ai vu que j'ai de temps à autres des problèmes lorsque le prog VB.net agit sur la matrice en même temps que VBA tourne mais cela n'est pas bloquant.

Mabrouki, merci, je ne connaissais pas cette solution par Wrapper. Je vais essayer !!!

[Phil Rob]

Bonjour Bruno,

Tu ne veux pas que l'utilisateur demande lui-même le rafraichissement : OK. Mais tu peux peut-être décider à sa place quand il faut le faire ...
Si tu déclares dans VB ton instance d'Excel avec WithEvents, ton application VB peut avoir connaissance des événements générés par les activités de l'utilisateur et donc, agir en conséquence ... (cf. l'illustration ci-dessous).
C'est juste une idée ...

Je vais aussi m'intéresser aux Wrappers ... VOIR LA SUITE CI-DESSOUS !!!

Bonne journée,



SUITE ..............

Voici le code de ma dll (simpliste, pour l'exemple) :
A noter d'abord que les 2 première lignes

Imports System.Runtime.InteropServices
<ClassInterface(ClassInterfaceType.AutoDual), ComVisible(True)>

ont été fournies dans une discussion par Mabrouki le 18/1/2011 ! Merci à lui.
Sans ces 2 lignes, ma dll était exploitable sous VBA à condition de bien la connaître ...
Avec ces lignes, on dispose de toute l'aide nécessaire.

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
24
25
26
27
28
29
30
31
32
33
Imports System.Runtime.InteropServices
<ClassInterface(ClassInterfaceType.AutoDual), ComVisible(True)>
Public Class UnNombre
    Private Nombre As Integer
 
    Public Sub New()
        MyBase.New()
        Nombre = 0
    End Sub
 
    Public Sub New(ByVal N As Integer)
        MyBase.New()
        Nombre = N
    End Sub
 
    Public Property LeNombre() As Integer
        Get
            Return Nombre
        End Get
        Set(ByVal N As Integer)
            Nombre = N
        End Set
    End Property
 
    Public Function DonneNombre() As Integer
        Return Nombre
    End Function
 
    Public Sub PrendNombre(ByVal N As Integer)
        Nombre = N
    End Sub
 
End Class