‘ Code VBA pour désactiver ScreenSaver
Sub KeepAlive()
Dim EnterKey As String
‘————————–
‘- delay 1 second
Application.Wait Now + TimeValue(« 00:00:05 »)

EnterKey = « ~ »
‘————————–
SendKeys EnterKey, False
End Sub
‘———————————————-