XL 2019 Changer l'écran de démarrage Excel 2019 au lancement

[YAP32]

Bonsoir à tous,

Je voulais savoir y a-t-il une possibilité de changer l'écran de démarrage Excel 2019 pour un fichier bien spécifique je me suis dit si DoneEx avec (Splash image) parvient à le faire il y a peut-être une possibilité de le réaliser avec nos propres moyens.

PS: Je ne veux pas utiliser un userform car celui-ci vient après le démarrage et même si je désactive l'option "Activer l'écran de démarrage au lancement" c'est un userform avec titre je l’ai fait mais pas trop beau

Merci et bonne soirée

Yap32

 

[YAP32]

dans mon exemple
le application .visible=false c'est le vbs qui s'en charge
le visible=true c'est a la fermeture du userform dans le xlsm
pigé? ou i faut que je face les deux fichiers exemple ?

Re @patricktoulon,

J'avais bien vu et compris pour les deux points, merci.

PS:Est-il possible de changer l'icône du script ? (avec un ico personnalisé).

Merci
@+

 

[TooFatBoy]

C'est ce que je suis en train d'expliquer.

C'est pas flagrant.


Bonne chance pour la suite
@+

 

[YAP32]

C'est pas flagrant.


Bonne chance pour la suite
@+

Merci beaucoup.
@+

 

[patricktoulon]

re
dézipe ca dans tes documents ou ou tu veux (les deux au même endroit)
ensuite dans le dossier ou tu les a mis ,clique droit sur le vbs / envoyer vers / raccourci vers le bureau
le raccourci sur le bureau tu peux lui mettre l'icon que tu veux après
terminé

 

[YAP32]

re
dézipe ca dans tes documents ou ou tu veux (les deux au même endroit)
ensuite dans le dossier ou tu les a mis ,clique droit sur le vbs / envoyer vers / raccourci vers le bureau
le raccourci sur le bureau tu peux lui mettre l'icon que tu veux après
terminé

Merci super ton fichier ça fonctionne parfaitement je vais voir avec mon classeur.

 

[YAP32]

Merci super ton fichier ça fonctionne parfaitement je vais voir avec mon classeur.

Re,

Est-ce que je peux ajouter dans le script une ligne de command comme après le splash screen une fois Excel ouvert l'activation de celle-ci car il faut chaque fois cliquer sur Excel pour arriver à ma feuille.

.workbooks.activate(c &"No_Splash.xlsm")

c=wscript.ScriptFullname
c=mid(c,1 ,instrrev(c,"\"))


with createobject("excel.application")
.visible=false
.workbooks.open(c &"No_Splash.xlsm")
.workbooks.activate(c &"No_Splash.xlsm")
'wscript.sleep 300


end with

Merci
@+

 

[patricktoulon]

re

c=wscript.ScriptFullname
c=mid(c,1 ,instrrev(c,"\"))


with createobject("excel.application")
.visible=false
set w=.workbooks.open(c &"No_Splash.xlsm")
'wscript.sleep 300
w.sheets(1).activate

end with

 

[YAP32]

re

c=wscript.ScriptFullname
c=mid(c,1 ,instrrev(c,"\"))


with createobject("excel.application")
.visible=false
set w=.workbooks.open(c &"No_Splash.xlsm")
'wscript.sleep 300
w.sheets(1).activate

end with

Re,

Et aussi j'ai déplacé mon classeur sous le "C:\demo\No_Splash..xlsm" dans un dossier nommé demo et ça fonctionne très bien;

c=wscript.ScriptFullname
c=mid(c,1 ,instrrev(c,"\"))

with createobject("excel.application")
.visible=false
.workbooks.open("C:\demo\No_Splash.xlsm")
'wscript.sleep 300


end with

puis j'ai changé l'icône avec une icône personnalisée ça fonctionne mais quand je le renomme il me répond plus dans ce cas-là le code ci-dessous doit-il changer?

c=mid(c,1 ,instrrev(c,"\"))

Merci et bonne nuit
@+

 

[YAP32]

Re,

J'ai testé avec le nouveau code

c=wscript.ScriptFullname
c=mid(c,1 ,instrrev(c,"\"))


with createobject("excel.application")
.visible=false
set w=.workbooks.open("C:\demo\No_Splash.xlsm")
'wscript.sleep 300
w.sheets(1).activate

end with

Plus rien ne va plus je reçois une erreur.

 

[fanch55]

re
dézipe ca dans tes documents ou ou tu veux (les deux au même endroit)
ensuite dans le dossier ou tu les a mis ,clique droit sur le vbs / envoyer vers / raccourci vers le bureau
le raccourci sur le bureau tu peux lui mettre l'icon que tu veux après
terminé

Salut Patrick,

Un petit phénomène avec le vbs, tout au moins sur mon pc: le splashscreen reste en backstage
L'appel via cmd fonctionne correctement

 

[patricktoulon]

Bonjour
@fanch55 je ne sais pas chez moi(2013) le userform se ferme âpres un moment il reste pas en backstage

je vois pas trop ce que le vbs a a voir la dedans il lance juste une app instance et le classeur


le reste c'est le fichier

chez moi le cmd même avec le splach (écran de demarrage") décoché (sur 2013)
le splach apparaît quand même mais moins longtemps

le but avec le vbs c'est d'ouvrir d'abords une instance de excel (en invisible)
et d'ouvrir le fichier dans cette instance
de la même manière que on le ferait dans vba (le code c'est le même)

il ne fait rien d'autre
le vbs

1. ouvre un instance excel (invisible)
2. ouvre le fichier dans l'instance
3. il se ferme aussitôt

le fichier

1. ouvre le userform dans le workbook open

le userform

1. dans son queryclose rend visible l'application

 

[TooFatBoy]

@fanch55 je ne sais pas chez moi(2013) le userform se ferme âpres un moment il reste pas en backstage

Oui, comme chez tout le monde, logiquement.
Le monsieur n'a pas dit le contraire, ou alors j'ai pô pigé quoi qu'il a dit...

 

[patricktoulon]

Oui, comme chez tout le monde, logiquement.
Le monsieur n'a pas dit le contraire, ou alors j'ai pô pigé quoi qu'il a dit...

Bonjour @TooFatBoy
ben si justement il dit le contraire

 

[TooFatBoy]

Bonjour @TooFatBoy
ben si justement il dit le contraire

Non, je ne crois pas qu'il dise que le splashscreen ne se ferme pas.

Ah, mais je vois qu'il est là. Il va pouvoir t'expliquer lui-même.

 

[fanch55]

Bonjour @TooFatBoy
ben si justement il dit le contraire

Non,non,
je veux dire qu'en Vbs, Excel reste en backstage tant qu'on n'a pas cliqué dessus,
la fenêtre active reste l'explorateur contenant le vbs .