useform

[YoLand]

Bonjour à tous,

j'ai un petit soucis d'affichage de useform, je m'explique : j'ai une macro qui ouvre 4 fichiers excels et cela prend un petit peu de temps, donc j'ai crée un userform qui dit'please wait' avec une photo. je souhaite que ce userform reste affiché pendant que la macro travail, et sur les conseil du forum je me suis servi de 'UserForm1.Show False' et 'Unload UserForm1' comme vous pouvez le voir ci dessous. le useform aparait bien pendant le temps de la macro et disparait apres comme je le souhaitai mais le pb est que ni ma photo ni mon texte n'aparaisse, j'ai juste un userform blanc!!!!!

Il doit y avoir un truc que je fait mal, quelqu'un pourrait m'aider!!!

En tout cas merci d'avance, et merci au forum qui m'a deja aidé plus d'une fois!!

Yoland


UserForm1.Show False


ChDir 'Q:\\AIS\\SU\\SUK\\SUA\\Forcasting Model'
Workbooks.Open Filename:= _
'Q:\\AIS\\SU\\SUK\\SUA\\Forcasting Model\\Corporate Business Drivers.xls', _
UpdateLinks:=3
Workbooks.Open Filename:= _
'Q:\\AIS\\SU\\SUK\\SUA\\Forcasting Model\\SU Business Drivers.xls'
Workbooks.Open Filename:='Q:\\AIS\\SU\\SUK\\SUA\\Forcasting Model\\Calculation.xls'
Workbooks.Open Filename:='Q:\\AIS\\SU\\SUK\\SUA\\Forcasting Model\\Results.xls'
Windows('Explorer.xls').Activate
Sheets('Explorer').Select
ActiveWindow.SmallScroll Down:=-3

Unload UserForm1

 

[PascalXLD]

Bonjour

Non tu n'as rien fait de mal mais ta macro continue avant que ton affichage ais eu le temps de se mettre à jour

Essaies peut-être de mettre après ton Userform1.show False

cette ligne

Userform1.repaint

et dis moi si ça marche

Bonne journée

 

[Yoland]

on ne peut etre plus efficasse et plus réactif, merci beaucoup pascal, ca fonctionne nickel!!!

bonne journée a tous!!!!!

yoland