comment créer une barre d'attente sous Access

Oui, c'est possible !
(c) Assan Séhèf.


Dessine une petite fenêtre, avec un message explicite. Surtout ne l'affiche pas en mode modal, c'est tout. Pour le sablier, voir Application.Cursor.

J'ai essayé avec

application.screen.mousepointer = 11

Cela ne fonctionne pas je vois quand meme
J'ai essayé avec

DoCmd.Hourglass True

aide c pareil
je ne trouve rien dans l'aide quand je tape

appplication.cursor

Euh, au temps pour moi. Sous Access, c'est bien

Mais ça, ce n'est que pour le curseur de la souris. Pour tes fenêtres qui s'affichent, c'est ton code qui doit le faire. Y'a pas de technique particulière, sinon de ne pas faire faire à ta macro des ouvertures et fermetures de fenêtres.

Tu as un exemple de code qui ouvre et ferme des fenêtres ?

en fait des que je fais

Set Classeur = xls.Workbooks.Open("\\Totol\Test\e_analyse_croisée_Test.xls")

et ca j'aimerais pas qu'iol me l'active de suite mais j'aimerais le voir a la fin après les manipulation que je fais dessus
La fenêtre s'ouvre et s'active moi j'aimerais que ma fenêtre Acces soit toujours active au pire

Sinon
pour ouvrir

xls.Workbooks.Open (fic1)

pour fermer

xls.ActiveWorkbook.Close
xls.Quit

(J'espère qu'il y a un Set devant ton xls.workbooks.Open(Fich1), sinon, vire-moi ces parenthèses   )

Euh, et si ton problème venait d'une ligne ressemblant à ça :
 

oui c'est bon mais toujours pas de barre de progression

donc j'ai ca

SysCmd acSysCmdRemoveMeter
SysCmd acSysCmdInitMeter, "Traitement", 100
...
SysCmd acSysCmdUpdateMeter, 20
...
SysCmd acSysCmdRemoveMeter

Je vais jouer avec ca meme si j'aurais préféré en automatique

Quel truc automatique ?

non laisse tomber

  Oki