Bonjour,
je modifie mon post, car j'ai l'impression que ça ne parait pas claire.
J'aimerais utiliser un objet "OPCGroup" de VBA excel avec la propiété WithEvents dans un module pour pouvoir utiliser la fonction WorkBook_Open(). Mon problème étant que "WithEvents" n'est pas accpeté dans un module.

D'une part dans ThisWorkBook :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Workbook_Open()
    Application.OnTime TimeValue("16:00:00"), "test"
End Sub
d'autre part dans un module :

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
Option Explicit  ' every variable has to be declared
Option Base 1    ' every Array starts on Index 1
 
Private MyOPCServer As OPCServer
Private WithEvents MyOPCGroup As OPCGroup
Private MyOPCItems() As OPCItem
 
Private Sub test()
 
    Dim SHandles(10) As Long  'parameter value
    Dim Values(10) As Variant 'parameter value
    Dim Errors() As Long     'return value
    Dim i As Integer
 
 
    'save ServerHandles
    For i = 1 To 10
        SHandles(i) = MyOPCItems(i).ServerHandle
    Next i
 
    'find out the values which are written into the following cells (line 11+12, column F)
    'this values should be writen into PLC
 
    For i = 1 To 10
          Values(i) = Cells(8 + i, 6)
          If Values(i) = "" Then Values(i) = 0
    Next i
 
    Call MyOPCGroup.SyncWrite(10, SHandles, Values, Errors)
 
End Sub
A savoir que la fonction "test" fonctionne correctement sur un event "click"
Merci de votre aide par avance.