TIMER POUR VBA

Commentaire de mortalino le 28/08/2006 17:00:00

Salut,

voici une autre méthode :

' *** A placer dans un Module :

Option Explicit

Public Declare Function SetTimer Lib "user32" _
    (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Public Declare Function KillTimer Lib "user32" _
    (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Public TimerID  As Long
Public hwnd     As Long
Public i        As Integer

Sub StartTimer()
    SetTimer hwnd, TimerID, 2000, AddressOf MonTimer
End Sub

Public Sub MonTimer(ByVal hwnd As Long, ByVal nIDEvent As Long, _
                    ByVal uElapse As Long, ByVal lpTimerFunc As Long)

' *** ici les actions à faire
End Sub

'=======================================================================

' *** A placer dans le UserForm :

Private Declare Function FindWindowA Lib "user32" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
  hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
    "X", "D") & "Frame", Me.Caption)

    Call Module1.StartTimer
End Sub

Private Sub UserForm_Terminate()
    Call Module1.KillTimer(hwnd, TimerID)
End Sub

++

Commentaire de mortalino le 30/08/2006 18:18:35

Salut,

pour la valeur i, c'est une erreur. En fait quand j'ai vu ta source, c'est à ce moment que j'ai créé ce bout de code. i était là pour mes essai dans une boucle.

La valeur TimerID sert à détecter le bon timer désigné (ici 0 car pas désigné) mais tu peux en attribuer plusieurs. Pour le 2000, c'est l'interval en ms.

"De +, les actions pendant le timer doivent forcémment être placées dans la procédure MonTimer"
>> je l'ai fait à la vb6. Dans vb6, il faut rendre un timer enable, puis les actions sont lancées, dans la procédure Sub Timer1_Timer()

Je ne remet pas ton code en question car il est effectivement pratique de l'avoir en ocx, je te propose une autre soluce, avec les API Set et KillTimer, puis le FindWindowA, afin de déterminer le handle d'une fenêtre pour appliquer le timer.

Pour information l'API timer est un peu plus précise que le timer de vb6 (et l'interval est supérieur)

++

Commentaire de mimiZanzan le 26/09/2006 17:13:18

Salut, et merci de t'intéresser à mon code!

3 solutions:
  a/Avec VB: -ouvrir un projet Contrôle ActiveX
             -y ajouter le contrôle TimerVBA.ctl par le menu Projet, et mettre sa propriété public à true si c'est demandé.
             -supprimer le contrôle par défaut UserControl1.
             -faire créer projet activeX par le menu fichier (projet1.ocx), et donner un nom significatif au fichier, VBATimer par exemple, en choisissant une destination pour le fichier du contrôle).
Le contrôle ocx est compilé et enregistré dans le registre automatiquement.
  b/Avec Windows: menu démarrer,exécuter,écrire dans la fenêtre ouvrir: Regsvr32 "pathContrôle.ocx", où pathContrôle est le chemin complet et le nom du contrôle. Pour enlever le contrôle du registre, faire de même avec Regsvr32 /u "pathContrôle.ocx".
  c/ Avec Excel VBA: j'ai développé un petit programme pour enregistrer/supprimer les dll et les ocx (code source "ENREGISTREMENT FICHIERS ACTIVEX .OCX ET .DLL")

Ensuite, il suffit d'ouvrir Excel par ex, ajouter un userform dans VBA, puis menu Outils, contrôles supplémentaires, et cocher le nom du contrôle dans la liste. il devient alors disponible comme tout bon contrôle des familles!
Je lui ai même fait une tête de timer...

En tout cas, c'est vraiment en effet très pratique d'avoir un contrôle timer dans VBA (on peut en mettre autant qu'on veut, et même directement sur une feuille de calcul, et ils sont invisibles à l'exécution!)

Commentaire de hugollin le 15/10/2006 12:48:24

Bonjour
J'ai essayé ceci :b/Avec Windows: menu démarrer,exécuter,écrire dans la fenêtre ouvrir: Regsvr32 "pathContrôle.ocx", Mais module introuvable ! avec : REGSVR32 Timer.ocx ca marche mais quand je place le controle dans l'userform j'ai un bug avec rapport d'erreur etc... à l'aide !!!

Commentaire de mariuskeith le 17/05/2007 16:44:31

bonjour,j'ai un projet de stage ki me demande de faire une application pour extraire les données d'une machine ,les convertir (parce ke se sont des fichiers text) en pdf(parce ke c sécurisé),puis les archiver afin de les exploiter par aprés,
svp aidez-moi à réaliser ce projet
en fait,l'extraction des fichiers(données) doit étre sous réseau,non pa par port série ou paralléle!!!!!!

Commentaire de devinet le 11/09/2007 18:08:25

Bonjour,

Je ne sais pas si ton problème et le même que le mien car tu n'as pas donné
beaucoup de précisions dans ton commentaire.

Mais j'ai rencontré le problème suivant, et je me suis dépanné comme indiqué
plus bas.

un code VBA développé sur une machine A et qui s'exécutait parfaitement sur cette machine, est copié sur une machine B, mais se plante sur l'instruction timer.active=true.

Après contrôle :
- l'ocx est bien dans system32
- le regsvr32 se déroule correctement
- le timer est bien visible dans la boîte à outils.

Si on regarde (sur le code qui ne marche pas) les propriétés du timer.
on ne trouve pas les propriétés active et intervalle.... ce qui provoque un message d'erreur à l'exécution.

Sur la machine B, j'ai créé un fichier excel, insérer un userform, insérer un timer. les propriétés active et intervalle sont présentes. Un peu de code dans l'auto_open du fichier pour afficher la userform et lancer le timer : tout marche.

Je me suis dépanné comme ceci :
- ouvrir le fichier excel qui ne marche pas (celui développé sur la machine A)
- supprimer le timer dans la userform du code qui ne marche pas
- ouvrir le fichier de test (ci-dessus) qui marche,
  en laissant ouvert l'autre fichier.
- sélectionner le timer dans la userform du code qui marche, faire Ctrl C
- et copier le timer dans la userform du code qui ne marchait pas.
- renommer le timer en conformité avec le nom utilisé dans le code qui ne
  marchait pas.
- vérifier que le timer a bien ses propriétés intervalle et active présentes.
- enregistrer le fichier

et le code marche.

Je ne comprend pas pourquoi ces propriétés sont perdues en copiant le fichier xls de la machine A vers B, ni pourquoi un nouveau code écrit sur B est correct. mais je me suis dépanné comme cela.
Espérant que cela t'aide.


Mimizanzan, merci pour ton code qui m'a bien été utile.
As tu une idée sur le problème que j'ai pû rencontrer.

CBa

Commentaire de mimiZanzan le 18/10/2007 19:10:41

Salut Devinet,

En complément de mon commentaire précédent, je précise que pour que le timerVBA d'un programme fonctionne sur plusieurs machines, il faut AVANT de l'enregistrer dans le registre, que le fichier Timer.ocx soit dans le même CHEMIN D'ACCÈS sur les différentes machine, par ex "C:\MesControles\".
C'est pourquoi la plupart des dll et des activeX de Windows sont tous dans le chemin C:\WINDOWS\System32 ou
C:\WINDOWS\System.
Ne pas oublier que l'enregistrement dans le registre tient compte de la position du fichier sur le disque de la machine.
Si çà intéresse quelqu'un, j'ai fait un petit code VBA pour l'installation et l'enregistrement du timer à une position créée à partir de C:\
Merci de me faire savoir si ce commentaire t'as aidé.

Commentaire de typiquement le 02/01/2008 17:17:42

Bonjour et bonne année à tous,

Pour ma part, je ne parviens pas à utiliser le controle...
L'enregistrement dans le registre fonctionne normalement. J'arrive à récupérer le controle que je place dans une form vba mais il ne s'exècute pas à ma guise et rien n'apparait meme si j'ai mis le controle en "active".

Pouvez vous m'expliquer le paramétrage et l'utilisation du controle ou alors ai je simplement un autre bug?

Merci d'avance

Commentaire de Jurgi le 19/02/2008 17:56:48

Salut mimiZanzan,

Peux tu me dire quel est la plus petite valeur que mettre comme Interval??

Il me faudrait un timer avec une capacité de l'ordre de 32 ms et bien sûr j'en trouve pas!!

Merci

Jurgi

Commentaire de mimiZanzan le 19/02/2008 18:17:38

La plus petite valeur est 1 ms, car le timer est étalonné en ms comme je l'ai indiqué dans mon message ci-dessus du 03/01.
Donc mets 32 pour ton besoin.

Commentaire de Jurgi le 20/02/2008 19:39:21

Salut mimiZanzan,

je me demandais s'il y avait un autre moyen poour relancer le timer que par

Private Sub TimerVBA1_Timer()

Timer1.Active = false
Timer1.Active = true

End Sub

Commentaire de Jurgi le 20/02/2008 20:29:03

Oui oui je le lance depuis un autre sub la 1ère fois!!

je l'utilise comme... comme un truc qui me dis toutes les 32 ms que 32ms se sont écoulées!! (pour checker des valeurs sur une autre bécanne (en l'occurence une commande numérique!)

...Et ça fonctionne super!!

Merci

Commentaire de carrivin le 08/04/2008 13:09:33

Attention Il y a un conflit entre le nom Timer_VBA l'instruction Timer VBA, il faudrait changer le nom de l'objet.

Commentaire de carrivin le 08/04/2008 16:26:46

J'utilise ton timer dans une Form sous Word 2000 + l'instruction Timer dans une autre:

Private Sub UserForm_Activate()
    Dim TempInfos As Single, Start As Single
    
    If Trim(Label1.Caption) = "" Then Label1.Caption = "Initialization"
    
    RCFeuilleInfos.Repaint
    
    Select Case Label1.Tag
        Case 1
            RCDeplacementsDivers.PagePrecedente
            TempInfos = 0.5
        Case 2
            RCDeplacementsDivers.PageSuivante
            TempInfos = 0.5
        Case 3
            RCDiversTechTemplate.Visualise
            TempInfos = 0.5
        Case 4
            RCDiversTechTemplate.Cache
            TempInfos = 0.5
        Case 5
            RCDiversTechTemplate.ActionProtection
            TempInfos = 0.5
    End Select
    
    Start = Timer   ' Définit l'heure de début.
    
    Do While Timer < Start + TempInfos
    Loop
    
    Unload RCFeuilleInfos
End Sub

Lorsque j'exécute la macro j'ia une erreur sur l'instruction Timer.
Quand je vais voir la définition de l'instruction Timer ceci pointe vers l'objet Timer VBA et non plus l'instruction Timer.
Je pense que sait le fait que dans le projet Timer project Name est Timer.

Cordialement,

René.

Commentaire de Le Pivert le 16/04/2008 12:16:45

Très bon code qui marche parfaitement si l'on suit les indications de MimiZanzan. Le seul problème que je trouve c'est ce message à chaque ouverture du fichier: "Cette application est sur le point d'initialiser les contrôles ActiveX potentiellement non sûrs. Si la source de ce fichier est fiable, cliquez sur OK pour que les contrôles soient initialisés à l'aide des paramètres d'espace de travail en cours."
Il y aurait-il une solution pour le supprimer? Merci d'avance

Commentaire de fabyfab le 05/06/2008 19:52:02

.

Commentaire de mimiZanzan le 22/08/2008 17:23:45

Bonjour RBN,
J'ai essayé ton ex ,et en effet çà plante, mais je ne sais pas pourquoi...
En mettant "On error Resume next" avant le calcul, çà marche! Je sais que ce n'est pas très éthique, mais enfin c'est le résultat qui compte.
Juste pour savoir, çà te sert à quoi ce calcul, si je ne suis pas indiscret...

Commentaire de VaraOH le 11/12/2008 19:35:21

Merci à MIMZANZAN pour cet objet si précieux...

Néanmoins juste 2 p'tits points :

1. Un tout p'tit fichier TXT d'aide sur les propriétés et leur rôles aurait été bienvenu... car le contrôle classique de VB6 (nommé Timer.ocx) n'utilise pas autant de propriétés... Il y a donc des propriétés que je me demande à quoi elles peuvent servir (active et enabled, locked ???...)

2. Pour RBN :
ce calcul : Range("Feuil1!B2") = Range("Feuil1!B1") + Range("Feuil1!B2")
est nommé sous Excel "référence circulaire" car tu demandes à Excel de placer un résultat dans une cellule sommée... et cela il aime pas bien !

Commentaire de VaraOH le 15/12/2008 09:01:54

Super réactive MIMIZANZAN, j'aime cela ;-)...

Merci pour tes précisions, en lisant un peu ce topic j'en avais déduis qu'il fallait utiliser la propriété 'Active' et non 'Enabled' comme pour l'OCX VB6 cité... mais je me demandais l'utilité des autres propriétés et je suis donc fixé.

En effet, je me range à ton avis : lors de la création d'un OCX encapsulé sous VB6, ce dernier rajoute des propriétés issues de son modèle de départ (la fenêtre de sélection d'un nouveau projet), elles peuvent être néanmoins occultées en modifiant le modèle depuis '\Program Files\Microsoft Visual Studio\VBxxx\Template\Projects\EXE Document ActiveX.vbp ou DLL Document ActiveX.vbp'.

Autre point, j'ai implémenté dans une 'Worksheet' (et non pas une 'UserForm') le contrôle de MIMIZANZAN et avec un peu de code (pour la couleur) c'est pile poil... Merci encore !

Commentaire de aqwxszedcvfrtgbnhyujyassine le 18/03/2009 14:57:54

salut a tous je suis nouveau ici ^^ vous n'avais qu'a partir sur le site http://visuelbasic.100webspace.net/visuel basic 11lecon pour vous et merci ^^

Commentaire de mimiZanzan le 21/03/2009 17:17:19

VARAOH, merci de ton message très intéressant.
J'ai ouvert avec le bloc note le code du controle Timer, et j'ai donc vu ce que tu décris.
Cependant, je ne vois pas ce que l'on peut faire: si on modifie le texte (et lequel?) du bloc note, celà modifie-t-il le code du contrôle?
Cordialement

Commentaire de mimiZanzan le 10/12/2009 02:23:53

Salut ANGELMAGIC,
Je ne comprends pas, si tu as fait comme tu le dis, tu devrais trouver dans la boite "contrôles supplémentaires" le contrôle TimerpourVBA.
Le contrôle n'est peut-être pas dans le registre. Essai directement avec la fonction Exécuter de Windows comme suit:
Menu démarrer,Tous les programmes,Accessoires,Exécuter, et écrire dans la fenêtre ouvrir: Regsvr32 "C:\MesControleActiveX\TimerVBA.ocx",puis faire OK.
Sinon, je ne vois pas...

Commentaire de mimiZanzan le 10/12/2009 17:27:11

Merci LE PIVERT, j'avais oublié de préciser que le controle doit aussi apparaitre dans les références...

Commentaire de Le Pivert le 12/12/2009 08:17:36

Bonjour Mimizanzan,
Bien vu, cela fonctionne très bien, je ne sais pas où tu as trouvé ces données mais chapeau.Je pense que cela va interesser pas mal de monde.
PS: je pense qu'il faut garder la marche à suivre si tu veux rétablir cette fonction, au cas où!.
@+ Le Pivert

Commentaire de saloon019 le 01/02/2010 14:35:13

Bonjour Mimizanzan,
Je me suis servi de ton timer pour une appli sous execl 2000 et il fonctionne tres bien.
mais si j'ouvre ce fichier xls sous office 2007, là il y a plantage j'ai vérifié et le timer est bien visible dans les outils de développement VBA donc le ocx accessible depuis excel et lorsque que prend et pose le timer sur ma feuille excel çà plante aussi "excel a rencontrer un probleme....." aurais-tu une solution?
Merci d'avance @+

Commentaire de angelmagic le 06/09/2010 11:52:45

Bonjour, j'ai presque le même problème que saloon019 : j'ai développé ma macro avec ton Timer pour vba sous excel 2003. J'essaye d'ouvrir ma macro sur un autre PC, sous excel 2007 et j'ai ce soucis : la référence est bien la : il va bien chercher ma macro sous C:\MesControlesActiveX\TimerVba. Cependant le contrôle n'est pas disponible parmi la liste quand on choisit contrôle supplémentaires. Le PC sur lequel j'essaye d'ouvrir mon application est un Seven 64 bits :s. Aurait-tu une solution?

Commentaire de MCSilver le 06/01/2011 03:45:19

Salut mimiZanzan, j'ai downloadé et enregistré le contrôle sur mon PC.  Tout semble OK.  Ensuite, dans Excel VBA, je peux définir un objet TimerVBA (Dim WithEvents MyTimer as TimerVBA).  Ensuite, j'instancie l'objet: Set Mytimer = New TimerVba.  Ici, le compilateur ne reconnaît pas automatiquement la classe TimerVBA.  Évidemment la suite ne pourra fonctionner.  Je me pose la question si je tente de bien utiliser le contrôle afin d'avoir accès à l'objet et à son événement (MyTimer_Timer)...

Merci d'avance pour tout aide.

Commentaire de MCSilver le 07/01/2011 06:20:59

Y a-t-il un moyen d'utiliser le TimerVBA sans support (tel une Form ou une feuille du classeur)?  Un peu comme je tentais de le faire avec le <Dim WithEvents>?  Merci à l'avance pour le temps pris pour me répondre.

Commentaire de MCSilver le 08/01/2011 11:29:45

J'avais exploré cette avenue suite à votre 1ère explication, malheureusement, mon Excel 2007 (assurément maintenu à jour) crash solidement et à répétition immédiatement après avoir cliqué su OK suite à l'ajout du contrôle TimerPourVBA.TimerVBA.  J'e n'ai donc pu aller plus loin dans cette exploration.  Mon App fonctionne actuellement avec un autre Timer mais si vous avez encore du temps je préfèrerais faire fonctionner le vôtre qui me paraît plus flexible et adapté.