Y
YoLand
Guest
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
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