XL 2021 Gif sur bureau

[claudio54]

Bonjour à tous
Peut-on afficher un gif (image simple détourée et non animée) sur le bureau (attente pendant chargement)?
Bien entendu, je souhaiterai que cette image apparaisse seule et sans contours.
Merci à vous

 

[patricktoulon]

re
a mon avis c'est juste un probleme de timing si le fichier travaille beaucoup au chargement
peut être ne lance tu pas le truc au bon moment
mais sans fichier je ne peut pas t'aider sur ce point

 

[claudio54]

J'aimerai bien joindre mon fichier, mais il pèse 2900 Ko et ensuite il charge une base de données de 5800Ko. Pour le tester il faudrait que je poste les 2 fichiers + un fichier word pour le mode d'emploi. C'est une usine à gaz que j'étoffe et que j'essaie d'améliorer depuis plus de 10 ans.
C'est une gestion de fichiers musique, karaoké, blind-test, clip vidéos...

 

[job75]

Mettez vos 3 fichiers dans un dossier et déposer-le sur TransferNow.net

 

[Cousinhub]

Bonjour,
En décochant cette option, peut-être?

 

[claudio54]

Bonjour,
En décochant cette option, peut-être?
Regarde la pièce jointe 1226251

J'y ai cru, mais non !

 

[TooFatBoy]

Hello,

Le but de cette demande était de pouvoir afficher le logo sur le bureau dés le lancement de la macro et non dans l'application. Au début du code j'insère l'instruction "Application.visible=false"

On a bien compris, tu veux une sorte de splashscreen.

 

[Nain porte quoi]

Hello,

pour éviter le splash screen d'Excel il faut ajouter /e dans le raccourci, donc ça devrait donner

"C:\emplacement de excel.exe\EXCEL.EXE" /e "C:\emplacement du fichier\nom du fichier.xlsm"

 

[patricktoulon]

sinon on crée une fonction ready
quand on ouvre excel tout n'est pas dispo tant que le splatch-screen excel tourne
vba est dispo quasiment en premier
donc pour le show du logo il nous faut une fonction ready application.ready et buzi etant tres capricieuses il ne faut pas y compter
par contre on peut tester avec un object feuille si la feuille existe pendant le open et si possible la derniere feuille

voila comment je fais avec le model en macro 4(le premier model)

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

Option Explicit
Private Sub Workbook_Open()
Dim T As Single

    Application.Visible = False

    logo.Show 0
    'simulation d 'attente de 5 secondes
    T = Timer: Do While Timer - T < 1: DoEvents: Loop
  
    Do While Not ExcelIsReady
        DoEvents
    T = Timer: Do While Timer - T < 0.01: DoEvents: Loop
     Loop

    Unload logo
    Application.Visible = True

End Sub
Function ExcelIsReady() As Boolean
    On Error Resume Next
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Feuil1")
    ExcelIsReady = Not ws Is Nothing
End Function

 

[claudio54]

sinon on crée une fonction ready
quand on ouvre excel tout n'est pas dispo tant que le splatch-screen excel tourne
vba est dispo quasiment en premier
donc pour le show du logo il nous faut une fonction ready application.ready et buzi etant tres capricieuses il ne faut pas y compter
par contre on peut tester avec un object feuille si la feuille existe pendant le open et si possible la derniere feuille

voila comment je fais avec le model en macro 4(le premier model)

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

Option Explicit
Private Sub Workbook_Open()
Dim T As Single

    Application.Visible = False

    logo.Show 0
    'simulation d 'attente de 5 secondes
    T = Timer: Do While Timer - T < 1: DoEvents: Loop
 
    Do While Not ExcelIsReady
        DoEvents
    T = Timer: Do While Timer - T < 0.01: DoEvents: Loop
     Loop

    Unload logo
    Application.Visible = True

End Sub
Function ExcelIsReady() As Boolean
    On Error Resume Next
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Feuil1")
    ExcelIsReady = Not ws Is Nothing
End Function

Testé sans résultat, le logo s'affiche sur la fenêtre excel.

 

[patricktoulon]

non sur la fentre excel impossible sur l'ecran de demarrage excel peut être
au quel cas là il y a un soucis conceptuel du fichier et là sans fichier je peux rien faire
il te faut le declencher a la fin de la macro de chargement de tes bdd
mais je serais toi vu le contexte j'abandonnerais cette idée
revenir sur la conception d'un fichier de plus de 10 ans avec diverses mises à jours depuis , tout ça pour un splatch ca vaut pas le coup

 

[claudio54]

non sur la fentre excel impossible sur l'ecran de demarrage excel peut être
au quel cas là il y a un soucis conceptuel du fichier et là sans fichier je peux rien faire
il te faut le declencher a la fin de la macro de chargement de tes bdd
mais je serais toi vu le contexte j'abandonnerais cette idée
revenir sur la conception d'un fichier de plus de 10 ans avec diverses mises à jours depuis , tout ça pour un splatch ca vaut pas le coup

Oui, c'est plus pertinent. ça ne vaut pas le coup et ça me va quand même.