Option Explicit
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub ShellOpen()
Dim fichier As String
fichier = "C:\...\...\Essai.pdf"
ShellExecute 0, "open", fichier, "", "", 0
End Sub
|