Une ProgressBar durant lenregistrement - VBARésolu

Question

Bonjour,
voil&#224; j'ai une macro avec un bouton quitter, qui se termine par :
ActiveWorkbook.Close SaveChanges:=True

Le temps d'enregistrement est un peu long (5 bonnes secondes).
Je pensais afficher une ProgressBar ou une animation (gif anim&#233; ?) histoire d'enlever l'illusion que le pc est plant&#233;, mais j'y arrive pas. :(

Auriez vous une id&#233;e, un piste vers laquelle je puisse creuser ?

Merci beaucoup !  
ste

kalobit · Accepted Answer

effectivement, c'est du vba access si je ne me trompe pas.

Dans excel, ya une progressbar dans la barre d'&#233;tat, &#231;a devrait suffir. Sinon : 

application.Cursor =xlwait   ' Affiche le sablier
Activeworkbook.close true
application.cursor = xldefault   ' Remet le curseur normal

++++ K@lobit

econs · Answer

Salut,
Tu ne pourras pas placer de progressbar avec cette action.

Tout au plus pourrais-tu dire &#224; la progressbar "Affiche 0%" avant
l'action, puis "Affiche 100%" apr&#232;s l'action, mais rien de plus.

Tu ne peux pas lier une progressbar &#224; un &#233;venement.

Manu

tbbuim1 · Answer

Dans ce cas utilise
Docmd.Hourglass  true
ton action qui prend du temps
DoCmd.Hourglass false
Ca te permettra de mettre le sablier sur la souris
ce qui montre que le pc travail. Voil&#224;
TBBUIM

XP_aie_aie · Answer

oui je vais essayer comme ca ce sera plus simple :)

Merci beaucoup !

XP_aie_aie · Answer

heu... finalement 
Docmd.Hourglass  true
je le tape comme ca direct ? c du vba excel que je fais... il semble pas comprendre (moi idem) var non d&#233;finie
il n'y a pas une autre commande pour afficher le sablier de la souris ?

Merci

XP_aie_aie · Answer

Super !
c moins visuel mais ca marche !!! :)

mci

Une ProgressBar durant lenregistrement - VBA

6 réponses

Discussions similaires