Withevent dans un module standard

Version imprimable

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:

1
2
3
Private Sub Workbook_Open()
    Application.OnTime TimeValue("16:00:00"), "test"
End Sub

d'autre part dans un module :

Code:

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.

07/07/2014, 23h00
clementmarcotte
Bonjour

Citation:

Envoyé par terrypical

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.

Il n'y a aucun objet OPCGroup dans VBA et tu ne dis pas quand et avec quoi, tu déclenches in événement Click

Ton objet OPCGroup est donc un objet tout à fait externe à VB-VBA.

Ceci dit, rien n'empêche d'avoir quelque chose de ce genre:
Code:

1 2 3 Sub Machin_Click Test end sub
08/07/2014, 09h49
Invité

Salut,

Il faut déclarer les variable avec le modificateur 'WithEvents' dans un module object ou de classe. Les module standard ne gèrent pas les événements.
08/07/2014, 10h57
terrypical

2 pièce(s) jointe(s)
@clementmarcotte
Je travaille sur Excel 2010, OPCGroup est un objet (DLL OPC_auto) et références
Pièce jointe 150586

Mon problème ne vient pas de l'objet mais de son utilisation, je veux lancer une macro contenant ma fonction "test" a l'heure indiqué.
Code:

1 2 3 Private Sub Workbook_Open() Application.OnTime TimeValue("11:00:00"), "test" End Sub
on ne peut pas laisser la fonction dans "sheet1" car elle est inaccessible
Pièce jointe 150598

et dans module je ne peux pas déclaré WithEvents.

@Nouveau2
déclaré la variable dans un module de classe d'accord mais la fonction aussi je dois l'écrire dans ce module??
j'ai des erreur de ce type, quand je laisse ma fonction dans "sheet1" ou "module de classe".
Pièce jointe 150598

si vous avez un exemple de ce qui peut marcher je suis preneur.
merci d'avance.

Utilise le nom complet:

Code:

1
2
3
4
5
Private Sub Workbook_Open()
    Application.OnTime TimeValue("11:00:00"), "Sheet1.Test"
'ou alors
    'Application.OnTime TimeValue("11:00:00"), "VBAProject.Sheet1.Test"
End Sub

Ca fonctionne même si la méthode est privée d'ailleurs.

08/07/2014, 13h36
terrypical

et bien un grand merci à toi Nouveau2 ;)

en effet c'était juste lié à ce mauvais appel.