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 :
d'autre part dans un module :
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
A savoir que la fonction "test" fonctionne correctement sur un event "click"
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
Merci de votre aide par avance.
Partager