Discussion :

[Godzestla]

Bonjour,

j'ai un Userform qui pilote mon application.
Au démarrage j'affiche un compteur journalier (mis à zéro au départ) et un compteur cumulé ainsi que d'autres zones

les 2 compteurs sont stockés dans 2 cellules distinctes d'une feuille.

Je ne parviens pas à avoir l'affichage de ces 2 zones (FAx_Sent, Fax_Sent_Cumulated) qui se met à jour sur mon userform alors que pour les autrez zones, il n'y a pas de problème.
A l'initialisation du userform, les données sont aussi correctes.
Le traitement est activé par un bouton start_polling sur le userform

Voici le code :
Dans Userform2

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub UserForm_Initialize()
Me.StartUpPosition = 3
'Fax Sent
Worksheets("Parms").Range("C20") = 0
Me.Fax_Sent = Worksheets("Parms").Range("C20")
'Fax Sent Cumulated
Me.Fax_Sent_Cumulated = Worksheets("Parms").Range("C21")

Search_file = Folder & Trim(Worksheets("Parms").Range("C3"))


DoEvents
Me.Repaint

End Sub

Private Sub Start_Polling_Click()
'4. Loop until button Stop used

Do While BStop = False
 Found_Entry = ""
 Found_Entry = Dir(Search_file, vbNormal)

  Do While Found_Entry <> "" And BStop = False   ' Start the loop.

    Me.Status_text = "Sending " & Folder & Trim(Found_Entry)
    Sent_Status = Send_1_File(Folder, Found_Entry, Attachement_folder, Me.Debug_Sw, P_Phwnd, O_Attachement_file)
    If Not Sent_Status Then Exit Sub
    
    Me.Last_File_Name = Folder & Trim(Found_Entry)
    
    Worksheets("Parms").Range("C20") = Worksheets("Parms").Range("C20") + 1
    Me.Fax_Sent = Worksheets("Parms").Range("C20")
    Worksheets("Parms").Range("C21") = Worksheets("Parms").Range("C21") + 1
    Me.Fax_Sent_Cumulated = Worksheets("Parms").Range("C21")


     Me.Status_text = "Waiting 2 sec before next entry"
     Application.Wait (Now + TimeValue("0:00:02"))
     Found_Entry = Dir       ' Get next entry.
   Loop

   If BStop = False Then
     Me.Status_text = "Waiting 10 sec before Polling"
     Application.Wait (Now + TimeValue("0:00:10"))
   End If
   DoEvents
 Loop

Pour les autres zones (par exemple Status_text), cela fonctionne.

Et parfois, le compteur s'affiche quelques occurences, puis plus rien.

je ne comprends rien.

[pgz]

Voici le code :
Dans ThisWorkbook

Dans ThisWorkBook?

PGZ

[Godzestla]

Oops.

Bien sûr que non. C'est dans le userform.

Je corrige de ce pas.

Désolé !!

[pgz]

Bonjour.

As-tu esayé de faire Repaint dans ta procédure?

PGZ

[Godzestla]

Oui, je l'avais avant mais cela semblait provoquer une certaine instabilité car l'application tourne en permanence et à un certain moment le PC plantait.

Dans un précédent post, Zazaraignée m'avait conseillé d'enlever les Repaint.

J'ai essayé de mettre repaint sur le contrôle

Code :

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

Me.Fax_Sent.Repaint

mais cela ne semble pas supporté.

Je trouve quand même étrange que les autres contrôles se mettent bien à jour sans repaint.

[pgz]

Ce n'est qu'un avis mais je pense que tes pb viennent des instructions WAIT qui arrêtent toute exécution. Tu pourrais essayer :
- soit de remplacer par une boucle qui teste l'heure et passe sur un DoEvents
- soit de restructurer et utiliser OnTime.

PGZ