Voilà quelque chose qui devrait fonctionner :
Option Explicit
Private 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
Public Function OpenPDF(Filename As String) As Long
Dim Res As Long
Res = ShellExecute(Me.hwnd, "OPEN", Filename, &O0, &O0, 0)
If Res <= 32 Then
MsgBox "Impossible d'ouvrir le fichier PDF. " & vbCrLf & "Vous allez maintenant être redirigé vers la page de téléchargement de Foxit Reader.", vbExclamation, "Erreur"
ShellExecute Me.hwnd, "OPEN", "http://www.foxitsoftware.com/downloads/download_links/downloadreader.php?tag=exe", &O0, &O0, 0
End If
OpenPDF = Res
End Function
VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question