Discussion :

[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.

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.

[clementmarcotte]

Bonjour

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Machin_Click
   Test
end sub

[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.

[terrypical]

@clementmarcotte
Je travaille sur Excel 2010, OPCGroup est un objet (DLL OPC_auto) et références


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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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


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".


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

[Invité]

Utilise le nom complet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[terrypical]

et bien un grand merci à toi Nouveau2

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