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 à 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...
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 à 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...
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:
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
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
 
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 à des une ou des dates selon besoin.
Ouvrir, puis fermer le classeur en PJ pour voir.
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
😉
 
@lusano

euh ... peut-être une surprise de ce genre :
Image 1.jpg
ou alors :
Image 2.jpg
soan
 
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

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......
une petite image ?? 😉
 
pour une image ... tu peux t'inspirer de
 
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
Retour