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

YAP32 · 27 Novembre 2022

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

patricktoulon · 6 Décembre 2022

Bonjour
un xla dans le xlstart ????
a ben ça c'est une drôle d'idée
ne te reste plus qu'a activer ton xla dans le fichier alors

met ceci dans un module

VB:

Sub AddRefXla()

    chemin_xla = environ("appdata")&"\Microsoft\Excel\XLSTART\samradapps_datepicker.xlam"

    On Error Resume Next
    ThisWorkbook.VBProject.References.AddFromFile (chemin_xla)


End Sub

et dans le workbook_open

VB:

AddRefXla

il faut que la référence
microsoft visual basic for application extensibility 5.x soit activée

YAP32 · 4 Décembre 2022

patricktoulon à dit:
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 · 4 Décembre 2022

YAP32 à dit:
C'est ce que je suis en train d'expliquer.

C'est pas flagrant.

Bonne chance pour la suite
@+

YAP32 · 4 Décembre 2022

TooFatBoy à dit:
C'est pas flagrant.

Bonne chance pour la suite
@+

Merci beaucoup.
@+

patricktoulon · 4 Décembre 2022

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 · 4 Décembre 2022

patricktoulon à dit:
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 · 4 Décembre 2022

YAP32 à dit:
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")

VB:

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 · 5 Décembre 2022

re

VB:

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 · 5 Décembre 2022

patricktoulon à dit:

re

VB:

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;

Code:

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?

VB:

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

Merci et bonne nuit
@+

YAP32 · 5 Décembre 2022

Re,

J'ai testé avec le nouveau code

VB:

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 · 5 Décembre 2022

patricktoulon à dit:
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 · 5 Décembre 2022

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

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

le fichier

ouvre le userform dans le workbook open

le userform

dans son queryclose rend visible l'application

TooFatBoy · 5 Décembre 2022

patricktoulon à dit:
@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 · 5 Décembre 2022

TooFatBoy à dit:
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 · 5 Décembre 2022

patricktoulon à dit:
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 · 5 Décembre 2022

patricktoulon à dit:
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 .

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

YAP32

XLDnaute Occasionnel

patricktoulon

YAP32

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

YAP32

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Pièces jointes

YAP32

XLDnaute Occasionnel

YAP32

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

YAP32

XLDnaute Occasionnel

YAP32

XLDnaute Occasionnel

Pièces jointes

fanch55

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Discussions similaires