Barre de progression pendant boucle While

yaciin Messages postés 23 Date d'inscription   Statut Membre Dernière intervention   -  
yaciin Messages postés 23 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour le Forum,

J'utilise une boucle while pour empecher l'exécution de certains lignes dans ma macro avant la création de quelques fichiers. Je souhaite afficher une barre de progression ou bien un petit cercle animé ou n'importe quel animation, avec un message "veuillez patienter", le temps de l'exécution de creation des fichiers. (le temps que le programme est bloqué dans la boucle while)

Mon souci c'est que je connais pas le temps que la boucle while vas prendre, du coup je peux pas adopter les solutions classiques des barres de progression (rectangle dans un rectangle etc) car je connais pas le taux d'évolution des opérations (qui vont créer les fichiers necessaires pour la poursuite de la macro) pendant la boucle while.

Merci d'avance.
A voir également:

2 réponses

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Tu devrais trouve la réponse chez Jacques Boisgontier :
http://boisgontierjacques.free.fr/pages_site/formulaireProgression.htm
0
yaciin Messages postés 23 Date d'inscription   Statut Membre Dernière intervention  
 
non aucun des 3 scénario correspond à mon probléme :/
Merci comém.
j'ai procédé différemment, j'ai essayé d'utiliser un userform le temps d'attente, mais j'ai pas pu fermer cet userform à la fin du temps d'attente malgré plusieurs essais
voilà mon code :

'affichage du userform
sap.Show vbModeless

fichier_1 = "table_inventaire.txt"
fichier_2 = "table_mard.txt"
chemin = ThisWorkbook.Path & "\"

'premier temps d'attente
Set fso1 = CreateObject("scripting.filesystemobject")
While fso1.FileExists(chemin & fichier_1) = False
Wend
'deuxieme temp d'attente
Set fso2 = CreateObject("scripting.filesystemobject")
While fso2.FileExists(chemin & fichier_2) = False
Wend

'fermeture que j'ai essayé
sap.Hide
Unload sap


Help plz, c'est simple je devine mais ça me bloque :/
Merci
0