Espérant qu'il n'y a pas 365 dates à remplir...

Voici un exemple de macro qui suppose : 
- que la zone de texte se trouve dans la première diapositive. Si ce n'est pas le cas, il suffit de modifier le numéro pour CurrentShowPosition, 
- que cette zone de texte se nomme "zone". 

Mettez la macro dans un module quelconque. Il s'agit d'une macro automatique, et donc elle se lancera toute seule dès la première diapo affichée en diaporama. 
A vous de compléter ce que vous souhaitez faire figure dans la zone de texte, en fonction de la date du jour. Il faudra donc ajouter autant de : 

Case "date"
montexte = "XXXXXXXX"
 

que de jours à compléter.

 

Sub OnSlideShowPageChange(ByVal diaporama As SlideShowWindow)
'macro écrite par m@rina
Dim jour As Date, montexte As String
jour = Date
Select Case jour
Case "24/12/2015"
montexte = "Reveillon de Noël"
Case "25/12/2015"
montexte = "Noël"
Case "31/12/2015"
montexte="Saint Sylvestre"
End Select

If diaporama.View.CurrentShowPosition = 1 Then
ActivePresentation.Slides(1).Shapes("zone").TextFrame.TextRange.Text = montexte
End If
End Sub
 

Statistiques

Aujourd'hui453
Hier2316
Cette semaine13237
Total depuis 20049551777

11
visiteurs actuellement en ligne