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

 

[fanch55]

re
le cmd ne fait pas le travail puisque le splatch d'origine apparait quand même chez moi
comme il ne met pas l'application visible à false (c'est le code dans le classeur qui le fait) alors effectivement le getwindowlong de l'app reste on top
mais chez moi j'ai les deux splatch

/e or /embed

Prevents the Excel startup screen from appearing and a new blank workbook from opening.

Dans le classeur Excel pour pouvoir l'appeler via cmd ou vbs, à l'ouverture, j'y ai mis :

Private Sub Workbook_Open()
    If Application.Visible Then Application.Visible = False
    FrmSplash.Show
End Sub

et dans le module:

Sub Close_Splash()
    Unload FrmSplash
    If Not Application.Visible Then Application.Visible = True
End Sub

La solution du Vbs me plait bien car il évite de devoir ajuster le raccourci du Cmd, mais il faudrait pouvoir rendre la main à Excel sans cliquer dessus .

 

[patricktoulon]

re
c'est justement ce que je cherche "rendre le focus a excel même invisible "

 

[patricktoulon]

re
aben si tu deplace ton fichier tout le temps aussi on est pas arrivé
donc dans ton classeur avec ton splatchscreen tue va coller cela dans le module
et a chaque fois que tu va déplacer ton fichier lance cette sub
tu va avoir le tarter dans le dossier du fichier et le raccourci sur le bureau
libre a toi de changer l'icon après

Sub createLanceurAndShortcut()
Dim lanceurpath, x&, Link, WShelL
lanceurpath = ThisWorkbook.Path & "\start" & ThisWorkbook.Name & ".vbs"
code = "||With CreateObject(""excel.application"")"
code = code & "|.visible=false|Set w = .Workbooks.Open(""" & ThisWorkbook.FullName & """)|.Windows(w.Name).Activate|w.Sheets(1).Activate|End With"

x = FreeFile: Open lanceurpath For Output As x: Print #x, Replace(code, "|", vbCrLf): Close #x

Set WShelL = CreateObject("WScript.Shell")

' Le chemin du fichier raccourci
linkFile = Environ("userprofile") & "\Desktop\" & ThisWorkbook.Name & ".lnk"

'Création du raccourci
Set Link = WShelL.CreateShortcut(linkFile)

'target du raccourci
Link.TargetPath = lanceurpath
'link.IconLocation = "chemin d'un exe ou d'un icon "
Link.WorkingDirectory = ThisWorkbook.Path

''// Sauve le raccourci
Link.Save

End Sub

 

[patricktoulon]

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

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

AddRefXla

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

 

[patricktoulon]

re
je parle du calendrier c'est un de mes model au départ
il a été modifié comme pas possible
même un scroll a été ajouté(ça se discute)

et comme je n'ai pas arrêter de le répéter a un autre membre du forum( il se reconnaîtra )
un xla(m) avec pour nom de project "vbproject" va forcement créer des bubules

j'ai donc renommé ton projet avec le nom d'origine du calendrier afin qu'il soit référencé et COCHE!!!!! quand on l'ajoute sinon il s'ajoute pas car "vbproject" c'est le nom de project d'origine de tout les classeurs
ce qui fait que si tu laisse "vbproject" comme nom tu ajoute la ref du claseeur xlsm
donc en ayant un nom bien précis ma sub "AddRefXla",on ajoute la bonne références
et si tu va dans vbe /outils/références tu y trouvera donc

donc voici ton xla j'ai juste renommé le vbproject afin qu'il soit distingué des autres projects
avec ma sub"AddRefXla" il ne devrait plus y avoir de soucis
tu n'a plus qu'a remettre ce xla là ou tu l'avais mis

 

[patricktoulon]

la base du calendrier oui c'est moi mais le scroll le ribbon etc.. non

en tout cas chez moi ça match le calendrier maintenant est bien fonctionnel

 

[patricktoulon]

ben tu fait le show du userform login après le splatch c'est tout

 

[patricktoulon]

re
et entre nous a faire un splatch perso j'aurais mis le login + mdp dans le splatch

 

[YAP32]

Bonjour le forum,

Est-ce que quelqu'un a-t-il une idée et la solution pour y remédier ?

Merci

Bonne journée.

 

[patricktoulon]

bonjour
@YAP32
ouh la !! là on touche aux fonction system
et je suis pas sur que l’écran de démarrage excel soit une image mais plutôt une fenêtre sans caption

@fanch55
on a quand meme l'ecran de demarrage excel

 

[YAP32]

bonjour
@YAP32
ouh la !! là on touche aux fonction system
et je suis pas sur que l’écran de démarrage excel soit une image mais plutôt une fenêtre sans caption

@fanch55
on a quand meme l'ecran de demarrage excel

Bonsoir le forum,

Merci pour votre participation.

@patricktoulon : J'entends bien votre raisonnement mais j'ai fait un test avec Donex Xcell (version démo) je n'ai pas eu l'écran d'accueil Excel 2019 mais plutôt une belle image que j'ai choisie.

@fanch55 : Merci pour le fichier. Petite question avant d'ouvrir le fichier j'ai eu l'alerte pour le raccourci "Call_No_Splash"
Static AI - Suspicious Archive
Trojan.Link.CmdRunner

Est-ce que c'est dangereux ?

Merci
@+

 

[YAP32]

VirusTotal considère les appel à Cmd comme un cheval de Troie potentiel .
Les macros Excel aussi sont dangereuses et n'ont pas été détectées par VirusTotal !!!
Norton ne détecte rien d'anormal dans le zip :
Regarde la pièce jointe 1156702

merci beaucoup

 

[YAP32]

Regarde la pièce jointe 1156695
Sur Office 2019, ne fonctionne pas ...

Sur l'aide de microsoft , l'option était sur 2013 ( alors pourquoi est-il encore dans les suivants ??? )
Regarde la pièce jointe 1156697

Bonsoir,

Merci pour l'info.

J'avais déjà essayé via un "userform" malgré la désactivation de l'affichage dans les options Excel celle-ci revient.

@+

 

[Deadpool_CC]

Bonsoir,

@patricktoulon : pas d'info sur la DLL, désolé.

Par contre pour éviter le temps de chargement, faire un fichier spécifique avec le userform servant d'écran splash au démarage. Positionner le fichier dans le dossier XLStart ... en théorie il sera chargé en premier et affichera l'écran de démarrage personnalisé et ensuite chargera le fichier à ouvrir ...
Attention : c'est une piste que je n'ai pas testé ... je garanti pas que cela marchera sans autre souci ... lol