Sub Macro1()
Const Chemin = "C:\Users\ARL MULTI\Desktop\"
Dim NomFic As String, ArgDir As String
Dim WS As Worksheet
Application.DisplayAlerts = False
ArgDir = Chemin & "coucou.zdl"
NomFic = Dir(ArgDir)
If NomFic <> "" Then
Application.WindowState = xlMinimized
ThisWorkbook.FollowHyperlink Chemin & NomFic
Application.Wait (Now + TimeValue("0:00:04"))
SendKeys "^{p}", True
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "{ENTER},true"
SendKeys "{NUMLOCK}", True
End If
End Sub