Bonjour et bonne année à tous!
Je viens vers vous pour un problème où je ne vois pas du tout de solution...
J'ai, dans un USERFORM (qui pilote un MSComm), plusieurs sub.
Sur la sub d'un bouton, je mets le code:
Application.ontime Now + timevalue("02:05:02"),"test"
pour appeler une procédure à un instant t.
test est à la suite de tous mes sub présent dans le USERFORM (pas dans un module car mon MSCOMM1 me pose des soucis de déclarations).
Les macros sont activées. Mon niveau de sécurité est au plus bas.
test est déclarée en string.
Dim test as string
J'ai essayé de mettre mes sub en private, en public... rien ne fonctionne.
Le message d'erreur est impossible d’exécuter la macro il se peut qu'elle ne soit pas.....
J'ai essayé de basculer mes sub en fonction (test devient function test) et je mets donc
Application.ontime Now + timevalue("02:05:02"),test
Là, ça ne sort jamais de la fonction malgré un ajout de exit function et le end function.
ma sub du bouton ressemble à ça:
Application.ontime Now + timevalue("02:05:02"),"test"
Application.ontime Now + timevalue("03:45:02"),"test2"
Application.ontime Now + timevalue("05:05:17"),"test3"
mes sub test ouvre le port com , envoie des données, ferme le port com et c'est tout.
Ma question est donc: comment réussir à appeler mes macros tests??
Je vous remercie de vos réponses.
Cordialement,
Innuendo67