Message pendant l'éxécution d'une Macro

[Don Foster]

Bonsoir le Forum,

Suite à mon projet , je voudrais afficher un message du style ( Veuillez Patienter ....) pendant l'éxécution de la macro .

En fait je lis des données sur des classeurs fermés et je voudrais si possible afficher un message pendant l'éxécution de la macro , actuellement je lis + de 1000 classeurs pour une geston de stock et cela prend un certain temps.

Je vous joint le fichier.

Merci pour votre aide

@ + Don Foster [file name=Connection_20050806124445_20050809194037.zip size=42327]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Connection_20050806124445_20050809194037.zip[/file]

 

[ong alain]

Bonsoir à toutes & à tous

Vois si cette solution convient.......


Ong alain
Ps: Je ne suis pas l'auteur du code s'il se reconnait merci de nous le faire savoir. [file name=Synthese2.zip size=19517]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Synthese2.zip[/file]

 

[Bebere]

bonsoir Jmps
une fonction ou tu extrais ce dont tu as besoin

Function FastRun(Setting)
'merçi à Peter Fossey, mpep
'début du code FastRun (False)
'fin du code FastRun (true)
'texte changer updating etc
Application.StatusBar = 'Updating Excel settings, please wait...'
Application.EnableCancelKey = xlDisabled
Application.ScreenUpdating = Setting
Application.DisplayAlerts = Setting
Application.Interactive = Setting
If Setting = False Then Application.Calculation = xlCalculationManual
If Setting = False Then Application.Cursor = xlWait
If Setting = True Then Application.Calculation = xlCalculationAutomatic
If Setting = True Then Application.Cursor = xlDefault
Application.StatusBar = False

End Function

à+ 🙂

 

[Don Foster]

Bonjour Bebere , jmps ,ong alain ,

J'ai adapter le code que ong alain a mis en ligne et tout fonctionne parfaitement .

Encore Merci pour votre aide .

@ + Don Foster