Discussion :

[Fouinard]

Bonjour,

J'affiche dans un userform un textbox qui m'affiche toutes les secondes le contenu d'un fichier txt.
Le contenu de ce fichier est modifié par un autre programme, et j'utilise le textbox pour afficher un suivi de l'évolution des calculs.
Le problème est que je ne sais pas comment lancer automatiquement la procédure qui rafraichie le contenu du textbox lors de l'ouverture de cet userform. En effet il s'agit d'une boucle infinie et lorsque je lance la procédure à la fin de l'initialisation de l'userform, celui-ci ne s'affiche jamais puisque la boucle infinie empeche l'initialisation de l'userform de se terminer...

Acutellement j'utilise un bouton pour lancer cette procédure, mais existe t'il un moyen pour lancer directement la procédure après l'affichage de l'userform sans avoir à cliquer sur un bouton ou quoi que ce soit ?

Merci d'avance
Rémi

[ucfoutu]

Bonjour,

1) Quel évènement de ta UserForm as-tu utilisé pour lancer ta boucle de lecture
2) comment et par quoi la lances-tu "toutes les secondes"

[Fouinard]

Pour le moment j'utilise un clic sur un bouton, lorsque j'ai essayé de mettre l'appel de la procédure dans l'initialisation de la form (UserForm_Initialize) elle ne s'est jamais affichée, ce qui me parait normal en y réfléchissant puisque la boucle infinie prend le relais sur l'initialisation qui ne se termine jamais à moins qu'on sorte de la boucle infinie mais dans ce cas ça n'a plus d'utilité puisqu'on à aucun "retour" en direct...

Ensuite pour ce qui est de la boucle, j'utilise un while avec une condition lue dans un fichier pour sortir lorsque l'autre programme indique qu'il a terminé... Et pour vérifier le fichier toutes les secondes je met "Now" dans une variable et à chaque passage dans la boucle je teste si le moment présent est supérieur de une seconde ou plus par rapport à la valeur présente dans la variable...

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
    Dim S As Integer
    While fini = False
        If Second(Now) > S Or Second(Now) = 0 Then
 
            nbEtapes = LireNbEtapes
            etapeEnCours = LireEtapeEnCours
            fini = LireTerminer
 
            TextBox1.SetFocus
            TextBox1.Text = LireRetour
            TextBox1.SelStart = Len(TextBox1.Text)
 
            S = Second(Now)
 
        End If
        DoEvents
    Wend

[decondelite]

Utilise plutôt l'évènement Userform_Activate.

[Fouinard]

Ouiii ! Merci !

J'ai même pas pensé que cet évènement pouvait être levé après Initialize !

Ca marche impec merci !

[ucfoutu]

Bonjour,

Je viens de jeter un coup d'oeil sur ta boucle (celle pour afficher toutes les secondes)
Laisse ton appli tourner 5 minutes au moins, dans rien toucher, et écoute le ventilateur de refroidissement de ton processeur ... Il ne s'énerve pas, avec cette méthode ? (si l'autre programme met du temps à terminer; bien sûr)

[Fouinard]

Et bien j'ai rien remarqué de particulier, pas de ralentissement de l'autre application qui pourtant est très gourmande en calculs... Mais je suis d'accord que ce n'est pas génial...! Quoi qu'il en soit je ne sais pas comment faire autrement en vba puisqu'apparemment il n'existe pas de timer ?

Mais si quelqu'un à une meilleure méthode je suis preneur !

[ucfoutu]

Chépa, moi ...

Et ceci, en mettant tes instructions dans une procédure nommée toto
et, dans ta boucle :

Code :

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

Application.OnTime Now + TimeValue("00:00:01"), "toto"

essaye ...

Le problème, avec ta méthode actuelle est que si le traitement de ton autre progaramme se fait sur plusieurs minutes, tes doevents dans ta boucle vont générer une surchauffe du type (essaye, tu vas voir) :

Code :

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

1
2
3
4
5
depart = Timer
 Do While Timer < depart + 300
   Text1.Text = Now
   DoEvents
 Loop

Si ton ventilateur est très silencieux : va voir l'évolution, pendant l'exécution, de l'état d'utilisation de ton UC...

[Fouinard]

Je suis conscient que la méthode de la boucle consome un max mais j'avais pas trouvé autre chose, et je suis obligé de faire un suivi de l'évolution des calculs de l'autre programme pour pouvoir continuer l'exécution du code vba lorsque les calculs sont terminés.

Je vais essayer avec ontime demain !

Merci

[Fouinard]

Je viens d'esssayer avec Ontime et rien ne se produit une seconde après. La procédure est bien exécutée et il n'y a pas d'erreur au passage sur ontime mais la procédure en question ne se relance pas...

[Fouinard]

Voilà le code, en regardant dans l'aide je n'ai rien vu de spécial ou de compliqué pour l'utilisation de ontime donc je ne vois pas d'où ça vient

Now + TimeValue("00:00:01") me retourne bien la bonne heure

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
Private Sub BouclageTimer()
    fini = LireTerminer
 
    If Not fini Then
        nbEtapes = LireNbEtapes
        etapeEnCours = LireEtapeEnCours
        'fini = LireTerminer
 
        If Not Me.ActiveControl Is Nothing Then
            TextBox1.SetFocus
        End If
 
        TextBox1.Text = LireRetour
        TextBox1.SelStart = Len(TextBox1.Text)
 
        Application.OnTime Now + TimeValue("00:00:01"), "BouclageTimer"
    Else
        fermerButton.Enabled = True
    End If
End Sub

[ucfoutu]

Voilà le code, en regardant dans l'aide je n'ai rien vu de spécial ou de compliqué pour l'utilisation de ontime donc je ne vois pas d'où ça vient

Oui ?
Et ta boucle, où est-elle passée ???????
(pas de boucle de répétition ? ====>>> pas de répétition, pardi ...)

[Fouinard]

Bah le but de ontime c'est pas de virer la boucle infinie et de relancer la procédure en elle même à un instant donné ?

[ucfoutu]

Non !
Le but est tout bêtement de l'utiliser comme un Timer (Windows gère) et d'éviter l'encombrement de ton processeur par ta méthode précédente ...
Relis-moi et fais le petit test que je t'ai suggéré plus haut (tu comprendras alors de quoi il s'agit).

[Fouinard]

Donc je viens de relire en effet j'avais pas bien lu que tu me disais de mettre ontime dans la boucle...

Mais je comprend pas bien en quoi ça soulage le processeur si on a toujours cette boucle infinie qui lance ontime ?

J'ai essayé en mettant ontime sans boucle dans une procédure dans un module ça marche bien.

Et je viens de m'apercevoir qu'il fallait que la procédure à éxecuter par ontime soit dans un module et non dans mon code userform ce qui n'est pas pratique pour réafficher les info récupéré par la procédure dans l'userform !?