Bonjour,
J’ai développé une DLL qui après exécution génère un événement que je voudrai intercepter dans une application VBA Excel !

quand je regarde sur internet, je trouve une implémentation de WithEvents( VB.net), mais elle me propose des événement d'un contrôle standard Clik, change etc...

si j’excepte l'affectation du WithEvents et Sub scr_Acction () elle fonctionne!
Code VB.NET : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Public Class toto
    Delegate Sub _Acction()
    Event Acction As _Acction
    Public Sub Run()
        RaiseEvent Acction()
    End Sub
End Class

Code Module de classe Excel VBA : 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
Private WithEvents scr As ScriptControlRD.ScriptControlRD
 
Public Property Let Language(Value As String)
scr.Language = Value
End Property
Public Property Get Language() As String
Language = scr.Language
End Property
Public Sub AddCode(Code)
 scr.AddCode Code
 End Sub
Public Sub AddObject(Virtuel As String, Phisique As Object)
  scr.AddObject "This", ThisWorkbook
  End Sub
 Public Sub ModulesAdd(Modul As String)
 scr.ModulesAdd Modul
 End Sub
 Public Sub Run(Optional ByVal Metthode As String = "")
 scr.Run Metthode
 End Sub
'là je voudrai récupéré l'événement! 
Private Sub scr_Acction ()
End Sub
Private Sub Class_Initialize()
Set scr = New ScriptControlRD.ScriptControlRD
End Sub
 
Private Sub Class_Terminate()
Set scr = Nothing
End Sub