Lancer Excel avec un logo personnalisé

Bonjour,

petite question.

j'ai crée un fichier sur excel, et j'aimerais lorsqu'on le lance, que mon logo apparaisse au lancement, et bien sur qu'il se ferme au bout de 5 secondes pour permettre l'accès aux données du fichier.

Une idée ?

Bonjour

J'ai fait INSERTION ==> Image

L'image a pris le nom Image 1 (à contrôler lors de ton insertion et modifier les codes si besoin)

Codes dans Module et ThisWorkbook

34imageouverture.xlsm (21.96 Ko)

Amicalement

Nad

Merci Nad mais ca ne marche pas.

Je sais pas si j'ai bien expliqué.

Le but c'est que quand je double clique sur le fichier à ouvrir, un petit logo s'affiche, disparait et que le fichier s'ouvre.

Re

Tu as activé les macros ?

Nad

suis bête !!!!!!

Merci Beaucoup.

J'ai un autre truc sur le tri chronologique.

tu t'y connais ?

Re

Ouvre un nouveau fil et expose ton problème en joignant un fichier.

Passe ce fil en résolu si la réponse te convient.

Nad

c'est top ca fonctionne.

une dernière chose.

est il possible que lorsque l'on ouvre le fichier, après que le logo ait disparu, la feuille ou se trouve le logo soit masquée automatiquement ?

alex13880 a écrit :

Merci Nad mais ca ne marche pas.

Je sais pas si j'ai bien expliqué.

Le but c'est que quand je double clique sur le fichier à ouvrir, un petit logo s'affiche, disparait et que le fichier s'ouvre.

Re

Ben c'est ce qui est prévu dans mon fichier.

Attention aux noms des feuilles dans les macros.

Edit : Je viens de relire - Effectivement, actuellement la feuille 2 est activée au bout de 5 secondes mais la feuille 1 est présente.

Je modifie le code pour masquer la feuille 1 et je te renvoie ça

Nad

Merki !!!!!!!!

Dans le Module

Sub EffacerMessage()
ActiveSheet.Shapes("Image 1").Visible = False
Feuil2.Activate
Feuil1.Visible = xlSheetVeryHidden
End Sub

Dans ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Feuil1.Visible = xlSheetVisible
Feuil1.Activate
End Sub
Private Sub Workbook_Open()
ActiveSheet.Shapes("Image 1").Visible = True
Application.OnTime Now + TimeValue("00:00:05"), "EffacerMessage"
End Sub

Nad

Bonsoir Nad,

Je me posais la question pourquoi mettre des événements dans BeforeClose

Les 2 lignes pourraient être mises directement dans Open, il me semble.

Cordialement.

Private Sub Workbook_Open()

Feuil1.Activate

Feuil1.Visible = xlSheetVisible

ActiveSheet.Shapes("Image 1").Visible = True

Application.OnTime Now + TimeValue("00:00:05"), "EffacerMessage"

End Sub

Re

Tu peux aussi.

Nad

Rechercher des sujets similaires à "lancer logo personnalise"