Probleme d'actualisations de données sur une macro affichant un message selon le jour du calendrier
Bonjour à tous !
Je me permet de faire appel à vous car je me dis que la solution doit être simple mais que je ne suis pas assez bon pour la trouver seul :) un peu d'aide me sera fort utile et comme j'ai déjà trouvé des centaines de fois des réponses sur vos forums j'ai sauté le pas et viens donc en tant que membre poser ma question car je n'ai pas trouvé de solution sur les divers forums que j'ai consulté !
Objectif final : afficher sur un écran dans une entreprise diverses informations concernant la vie de cette entreprise, organisation d’événement, photos etc etc. La personne en charge de cet écran utilise un powerpoint avec diverses diaporamas, elle souhaite également que selon le jour que nous sommes un message souhaitant l'anniversaire de la personne née ce jour apparaisse.
comme le diapo se lance tout les matins automatiquement à 8h depuis un petit PC fixé sur l’écran j'ai opté pour l'utilisation d'un fichier au format PPSM.
- Voila mon problème : j'ai récupéré du code macro sur un forum comme ceci :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Sub OnSlideShowPageChange(ByVal diaporama As SlideShowWindow)
Dim jour As Date, montexte As String
jour = Date
Select Case jour
Case "01/02/2019"
montexte = "Aujourd'hui c'est l'anniversaire de Delphine !"
Case "04/02/2019"
montexte = "Aujourd'hui c'est l'anniversaire de John !"
End Select
If diaporama.View.CurrentShowPosition = 1 Then
ActivePresentation.Slides(1).Shapes("zone").TextFrame.TextRange.Text = montexte
End If
End Sub
Sub ANNIV()
End Sub |
qui permet sur la diapo numero 1 l'apparition du message selon le jour du calendrier dans la zone de texte appelée zone.
Cette macro marche bien quand on l'execute manuellement mais je ne comprend pas pourquoi le fichier PPSM ne se met pas à jour tout les matins, du coup le message reste " coincé " sur le premier de la liste et ne change jamais, je souhaiterais qu'il n'apparaisse rien les jours sans anniversaire, et que le message avec le nom de la bonne personne apparaisse le jour voulu. Je ne sais pas si je suis très clair, je m'arrache les cheveux sur ce probleme d'actualisation et je me dis que je m'y prend peut etre TRES mal .... Merci de vos futurs retours et du temps que vous y consacrerez :)