Userform et temporisation d'un tache récurente

Bonjour,
j'ai un userform avec 2 boutons, START, STOP qui me permet de contrôler si un traitement de scrolling d'un folder avec traitement des fichiers textes qui s'y trouvent doit être effectué ou pas.

Je voudrais :
* Quand je pousse sur START que mon traitement se lance.
* Quand je pousse sur stop qu'il s'arrete dans la boucle après l'occurence en cours.
* Dans l'état START, que le traitement se fasse jusqu'à épuisement des données (fichiers du folder) puis qu'il attende soit l'arrivée de nouvelles données, qu'il va alors traiter, soit qu'on pousse su stop.

La question peut paraître ridicule, mais je ne sais pas comment combiner ces différents évènements pour que le code réagisse bien à l'utilisation de mon Bouton STOp si je décide d'intérrompre le traitement.

le code de mon userform est pour les 2 boutons est :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub Start_Polling_Click() 'Disable Me.Start_Polling.Enabled = False Me.Start_Polling.ForeColor = &H80000011 'Enable Me.Stop_Polling.Enabled = True Me.Stop_Polling.ForeColor = &H80000012 'text Me.Status_text = "Polling"   End Sub   Private Sub Stop_Polling_Click() 'Disable Me.Stop_Polling.Enabled = False Me.Stop_Polling.ForeColor = &H80000011 'Enable Me.Start_Polling.Enabled = True Me.Start_Polling.ForeColor = &H80000012 'text Me.Status_text = "*Stopped" End Sub

---

Le code pour ma boucle (je ne sais s'il doit etre dans le userform ou dans un module) , qui ne gère actuellement pas les boutons est

Code:

---

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

'1. Retrieve Folder to browse   Folder = "G:\Emballage\Emb06\"   '2. Retrieve Pattern File to browse   Search_file = Folder & "*.DAT"   '3. Browse Folder   Found_entry = Dir(Search_file, vbNormal)   Do While Found_entry <> "" ' Start the loop. Fullname = Folder & Found_entry Open Fullname For Input As #1 Found_keys = False Line Input #1, Laligne Do While Not EOF(1) And Found_keys = False '.... Loop '...... Close #1 '....... Found_entry = Dir ' Get next entry. Loop

---

j'ai regardé partout, et je n'ai rien trouvé qui m'aide à construire ce système

merci pour vos lumières.
;)

Hello,

Ci-joint un petit exemple qui pourra t'inspirer

Pièce jointe 35124
.

Salut Fring,

merci pour ta procédure.
C'est parfaitement ce que je cherchais.
je comprends maintenant que meme si on se trouve dans la procédure du bouton start, on peut intercepter les évènements liés à l'utilisation du bouton stop.

C'est bien foutu le Vba !!:king:

Bonne journée.:resolu::merci: