Pour cela une macro sera nécessaire.

Pour commencer, on vra créer les diapositives qui correspondent aux jours en questions et pour plus de facilité, on va nommer ces diapositives de façon à pouvoir les déplacer facilement et que la macro les retrouve.

Pour nommer les diapositives, voici une petite macro qui servira une seule fois. A adapter selon votre cas. Cet exemple nomme "lundi" la troisième diapo et "jeudi" la quatrième.

 Sub jour()
ActivePresentation.Slides(3).Name = "lundi"
ActivePresentation.Slides(4).Name = "jeudi"
End Sub

Voici maintenant la macro à coller dans un module et qui se déclenchera lors de l'affichage du diaporama :

Sub OnSlideShowPageChange(ByVal diaporama As SlideShowWindow)
'macro écrite par m@rina
Dim jour As Date, montexte As String
If diaporama.View.CurrentShowPosition = 1 Then

    If Weekday(Date2= 1 Then
        ActivePresentation.Slides("lundi").SlideShowTransition.Hidden = msoFalse
        Else
        ActivePresentation.Slides("lundi").SlideShowTransition.Hidden = msoCTrue
    End If

    If Weekday(Date2= 6 Then
        ActivePresentation.Slides("jeudi").SlideShowTransition.Hidden = msoFalse
        Else
        ActivePresentation.Slides("jeudi").SlideShowTransition.Hidden = msoCTrue
    End If

End If
 

Notez que le numéro utilisé avec Weekday(Date2)  correspond aux jours dont ils sont comptés en France : 1 = lundi, 2= mardi, etc.

Statistiques

Aujourd'hui1253
Hier2201
Cette semaine10805
Total depuis 20049740752

39
visiteurs actuellement en ligne