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(Date, 2) = 1 Then
ActivePresentation.Slides("lundi").SlideShowTransition.Hidden = msoFalse
Else
ActivePresentation.Slides("lundi").SlideShowTransition.Hidden = msoCTrue
End If
If Weekday(Date, 2) = 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(Date, 2) correspond aux jours dont ils sont comptés en France : 1 = lundi, 2= mardi, etc.