Bjr à toutes et à tous
J'ai créé le fichier VBS suivant :
Code VB : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Dim xlapp, classeur Set xlapp = CreateObject("Excel.Application") Set classeur = xlapp.Workbooks.open("C:\MesProgramme\LeBon.xlsm")
Excel se lance sans que l'utilisateur le voit et bien sûr il ne peut pas l'utiliser.
A l'ouverture de LEbon.xlsm une userform remplit l'écran et l'utilisateur pourra effectuer tout un travail mais rien que ce qui est prévu dans l'userform.
Parfait donc sauf que, sauf que .... il faut environ 25 secondes avant que l'userform n'apparaisse. C'est long, bien trop lent à tel point que parfois je me demande si j'ai bien lancé le VBS. J'en arrive à me dire que les utilisateurs vont se poser bien des questions...
Ma question : est-il possible de rajouter une ligne à la fin du prg VBS de lancement, une ligne qui affichera, par exemple, en milieu du bureau : "Patientez ..." et que ce message s'efface au bout de 23, 24 secondes
Ou bien une barre de progression en % avec le texte "Chargement..."
Avec tous mes remerciements anticipés
Partager