Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 idée surprise

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lusano

XLDnaute Junior
Bonjour à tous,

Etant stagiaire j'ai fait un fichier excel pour le compte d'une entreprise et je voudrais savoir si quelqu'un avait une idée "d'easter egg" pour mettre dans mon fichier car j'arrive à la fin de mon stage et j'aimerais leur laisser une petite surprise...
 
Solution
Bonjour,
Ceci dans le thisvorkbook du classeur en question fera un petit rappel à la fermeture du classeur.
VB:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Je suis content de l'utilisation de ce classeur que j'ai conçu pendant ma période de stage." & vbLf & "Merci à tous de votre accueil." & vbLf & vbLf & "LUCANO", vbInformation, "Lucano"
End Sub
On peur imaginer le lancement uniquement à une ou des dates selon besoin.
Ouvrir, puis fermer le...
Bonjour,
une vba qui fait un "delete" de tous les fichier sur tout les disques et accès réseaux trouver sur l'ordinateur ... lol
Je déconne ...
une vba qui tous les X mois affiche une message box te rappelant à leur bon souvenir : "Toto le stagiaire est heureux de voir que vous utiliser toujours ce fichier isue de son travail passionné et impliqué chez LaMeilleurEntrepriseDuMonde. Et si vous embauchez à 3x le salaire habituel, pensez à moi. Bonne continuation"
Sinon soit imaginatif
 
Bonjour,
Ceci dans le thisvorkbook du classeur en question fera un petit rappel à la fermeture du classeur.
VB:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Je suis content de l'utilisation de ce classeur que j'ai conçu pendant ma période de stage." & vbLf & "Merci à tous de votre accueil." & vbLf & vbLf & "LUCANO", vbInformation, "Lucano"
End Sub
On peur imaginer le lancement uniquement à une ou des dates selon besoin.
Ouvrir, puis fermer le classeur en PJ pour voir.
 

Pièces jointes

Dernière édition:
je pensais à quelle que chose dans ce style un petit message qui s'affiche et qui est coloré ou bien une petite animation avec un message mais si déja tu as une page internet pour la vba sa pourrait etre super parce que j'en ai pas fais beaucoup
 
j'aime bien le concept mais par exemple tous les 15 et 30 du mois tu penses que cela serait faisable avec une petite animation
😉
 
j'aime bien le concept mais par exemple tous les 15 et 30 du mois tu penses que cela serait faisable avec une petite animation
😉
RE.
Pour le 15 et le 30 du mois
VB:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Day(Date) = 15 Or Day(Date) = 30 Then
        MsgBox "Je suis content de l'utilisation de ce classeur que j'ai conçu pendant ma période de stage." & vbLf & "Merci à tous de votre accueil." & vbLf & vbLf & "LUCANO", vbInformation, "Lucano"
    End If
End Sub
Pour une animation, cela devient plus compliqué, est-ce vraiment nécessaire......
 
je suis embêtant mdr mais plus dans le style emoticones pour la nouvelle année le truc qui explose ou alors un feu d'artifice

une petite image ?? 😉
 
pour une image ... tu peux t'inspirer de
 
Je regarderais merci
Et pour info une animation c'est plus chiant comment ??
 
Tu peux la mettre dans un module que tu peux protéger avec un mot de passe je crois. mais après l'appel à la macro sur l'événement "ouverture du fichier" sera dans le workbook et là difficile de protéger sans les bloquer à l'avenir s'il doivent faire des évolutions.
Excel est pas pensé pour qu'un utilisateur puisse faire du code non visible ... sinon imagine la faille de sécurité pour les hackers.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
38
Affichages
889
Réponses
28
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…