Sub test()
LongFilename = Application.GetOpenFilename("PDF Files (*.pdf), *.pdf,(*.*),*.*")
fich = CStr(LongFilename)
rep = ShellExecute(0, "open", fich, "", "", 0)
'==================================== Ordre d'impression
ShellExecute x, "print", fich, "", "", 1
' ====================================
SendKeys "%(hi)"
Application.OnTime Now + TimeValue("00:00:03"), "monok"
End Sub