Discussion :

[Ooalkman]

Bonjour.

J'ai une macro Excel qui me permet de télécharger des fichiers sur Internet. Pour indiquer à l'utilisateur combien de temps ça peut prendre, j'ouvre un USF (en non modal = vbModeless) qui affiche une barre de progression que la macro de téléchargement alimente. Il arrive qu'il y ait beaucoup de fichiers à télécharger et que finalement l'utilisateur se lasse, dans ce cas je voudrais qu'il puisse annuler l'opération. J'ai donc créé un bouton "Annuler" qui lance une macro où la seule instruction est "End" mais apparemment, ça marche pas. Je crois que c'est parce que ça rame.

Ça s'approche du multi-threading donc je sais pas si c'est possible. Est-ce que quelqu'un a des billes là-dessus ?

Bien merci.

[Jean-Philippe André]

Salut,

je pense aux pistes suivantes :
- boucle démon
- variable booléenne qui bascule lors du clic sur le bouton Annuler
- procédure/fonction de nettoyage des fichiers temporaires


Pour un arrêt en cours de macro, la solution la plus intuitive serait l'Escape :
http://silkyroad.developpez.com/vba/boucles/#LVII

[Ooalkman]

Salut et merci d'avoir répondu.

Effectivement ça marche super avec Echap, merci beaucoup ! Maintenant j'aimerais vraiment utiliser le bouton Annuler, j'ai donc tenté de provoquer l'envoi de la clé Echap à l'aide de la fonction API keybd_event mais en fait je crois que c'est mon UserForm qui n'arrive pas à gérer le clic sur le bouton. Quand je clique la plupart du temps le bouton n'est pas enfoncé ou alors il reste enfoncé un certain temps sans que rien ne se passe. Ça te dit quelque chose ?

[parmi]

Bonjour,

Tu dois mettre un DoEvents dans ta macro pour pouvoir cliquer le bouton Annuler pendant l'exécution de ta macro.
DoEvents donne la main au système et te permet donc de faire autre chose...

Et dans ta macro, tu peux vérifier l'état d'une variable booléenne "Annuler", disons