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

 

[djidji59430]

Bonjour à tous,

C'est quoi le rapport avec EXCEL ?

Crdlmt

 

[patricktoulon]

Bonjour
il y a diverses solutions pour ça
un userform(utilisation des api Windows pour couper la barre de titre)
le dessin direct sur le DC(utilisation des api gdi et windows)
un HTA encodé dynamiquement en vba
et certainement d'autres encore

 

[claudio54]

Bonjour à tous,

C'est quoi le rapport avec EXCEL ?

Crdlmt

J'ai fait une appli excel assez volumineuse et je voudrais afficher un logo sur le bureau pendant le chargement de cette appli. Le rapport c'est que c'est une appli excel !

 

[claudio54]

Bonjour
il y a diverses solutions pour ça
un userform(utilisation des api Windows pour couper la barre de titre)
le dessin direct sur le DC(utilisation des api gdi et windows)
un HTA encodé dynamiquement en vba
et certainement d'autres encore

J'ai essayé avec un usf avec image intégrée, malgé le masquage croix et barre de titre avec les api, on perçoit quand même la forme de l'usf. De plus je n'arrive pas à avoir un résultat d'une image détourée.

 

[patricktoulon]

re
donne moi ton image au moins sinon on va pas avancer bien loin

 

[claudio54]

re
donne moi ton image au moins sinon on va pas avancer bien loin

Bien sûr elle sera redimentionnée plus petite. Merci

 

[patricktoulon]

BON BEN VOILA ON AVANCE
test ça et si c'est bon je te le referait au propre avec les api déclarées et plus en macro 4

 

[claudio54]

BON BEN VOILA ON AVANCE
test ça et si c'est bon je te le referait au propre avec les api déclarées et plus en macro 4

Incroyable, c'est pil-poil ce que je voulais.

 

[patricktoulon]

re
ben maintenant incroyable ça ne l'ai plus
😉

 

[claudio54]

Mille merci Patrick

 

[patricktoulon]

Bonjour
pour les puristes
et voici la même chose avec les api declarée en bon et due forme et le timing par application.ontime

 

[job75]

Bonjour le forum,

Je ne comprends vraiment pas, au post #1 on ne parle pas d'UserForm.

Et la méthode Pictures.Insert est très simple :

Sub Import_logo()
Dim dest As Range, chemin$, fichier$
Set dest = [D2] 'cellule de destination
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.gif")
If fichier = "" Then MsgBox "Fichier GIF introuvable !", 48: Exit Sub
Application.ScreenUpdating = False
With ActiveSheet.Pictures.Insert(chemin & fichier)
    .ShapeRange.LockAspectRatio = msoFalse 'permet d'étirer l'image
    .Top = dest.Top
    .Left = dest.Left
    .Width = dest.Width
    .Height = dest.Height
End With
End Sub

Téléchargez les fichiers zippés joints dans le même dossier et cliquez sur le bouton du fichier .xlsm.

A+

 

[claudio54]

Job75
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" et du coup ta méthode ne peut fonctionner !

 

[claudio54]

J'abuse peut-être : voila ce que ça donne à l'exécution du fichier. Le logo s'affiche sur la fenêtre d'ouverture excel. Cela vient peut-être du fait que mon fichier est trop volumineux. J'aurais souhaité qu'il s'affiche sur le bureau comme sur la deuxième image.