Private Sub oApp_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
Dim Forme As Shape
Dim sld As Slide
Dim heure As Integer
Dim Min As Integer
Dim SlideNum As Integer
Dim appXL As Excel.Application
SlideNum = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex
heure = Hour(Time)
Min = Minute(Time)
If SlideNum = 22 And heure = 8 And Min <= 30 Then
For Each sld In ActivePresentation.Slides
For Each Forme In sld.Shapes
If Forme.Type = msoLinkedOLEObject Then
Forme.LinkFormat.Update
appXL.Visible = False
End If
Next
Next
End If
End Sub