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 :
qui permet sur la diapo numero 1 l'apparition du message selon le jour du calendrier dans la zone de texte appelée zone.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
Partager