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'hui815
Hier2816
Cette semaine11422
Total depuis 20049486682

44
visiteurs actuellement en ligne