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