Discussion :

[Yumat]

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

[hackoofr]

Pouvez-vous nous joindre si c'est possible le fichier Excel concerné ?
Peut-être que vous pouvez lancer la macro de l'userform sans ouvrir Excel ?
https://wellsr.com/vba/2015/excel/ru...sing-vbscript/

[Yumat]

que faut il comprendre par : vous pouvez lancer la macro de l'userform sans ouvrir Excel???
En fait je ne lance pas une macro. Mon prg est prevu pour lancer l'userform qui par Inizialise termine le travail.

Non c'est vraiment un affichage msdos ou une barre de chargement en % que je recherche

merci à toi

[hackoofr]

que faut il comprendre par : vous pouvez lancer la macro de l'userform sans ouvrir Excel???

Désolé, je ne peux pas vous répondre sans avoir vu le code du VBA !

[Yumat]

comme je l'ai ecrit plus haut il n'y a pas de code vba. C'est inizialise de l'userform qui met tout en place

[Yumat]

Si j’écris mon programme comme ceci :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim xlapp, classeur
Set xlapp = CreateObject("Excel.Application")
Set classeur = xlapp.Workbooks.open("C:\MesProgramme\LeBon.xlsm")
Wscript.echo "Patientez...."

Le message « Patientez… » n’apparait que lorsque je quitte mon application LeBon.s=xlsm.

Si je l’écris comme ceci :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim xlapp, classeur
Set xlapp = CreateObject("Excel.Application")
Wscript.echo "Patientez...."
Set classeur = xlapp.Workbooks.open("C:\MesProgramme\LeBon.xlsm")

Le message apparait de suite mais tant que je ne valide pas par OK LeBon.xlsm ne se charge pas. Tout est à l’arrêt .
En fait je souhaite que pendant que LeBon.xlsm se charge, le message soit à l’écran sans rien bloquer. La solution 1 quoi.
Possible ?