Recherche

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

France 74,1% France
Canada 7,6% Canada
États-Unis d'Amérique 4,1% États-Unis d'Amérique

Total:

93

Pays
018288621
Aujourd'hui: 7
Hier: 268
Cette semaine: 1.462
Semaine dernière: 1.707
Ce mois: 1.198