OUVRIR UN FICHIER PDF AVEC VISUAL BASIC

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

Private Const SW_SHOWMAXIMIZED = 3

Private Sub Command1_Click()
Dim PDFName As String
Dim lResult As Long

PDFName = "C:\Document1.pdf"
lResult = ShellExecute(hWnd, "open", PDFName, vbNullString,
vbNullString, SW_SHOWMAXIMIZED)
End Sub

METHODE1
va a «Adobe Acrobat 7.0 Browser Control Type Library" dans la boite a outil(c'est-AcroPDF.dll) qui est livré avec le lecteur Acrobat.le contrôle se trouve dans la boîte à outils, glissez-le dans la forme indiquée au besoin.cliquez sur le bouton d'appel et tapez ...

me.AcroPDF1.LoadFile () me.AcroPDF1.LoadFile ()

sinon verifier l existance de
vérifiez que ce fichier dans le dossier Program Files
(C:\Program Files\Adobe\Acrobat 7.0\ActiveX...) (C: \ Program Files \ Adobe \ Acrobat 7.0 \ ActiveX ...)
- AcroPDF.dll (file ver... 7.0.5.0 - AcroPDF.dll (ver fichier ... 7.0.5.0
- pdfshell.dll (file ver... 7.0.0.0) - Pdfshell.dll (fichier ver ... 7.0.0.0)

METHODE 2
Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Const SW_SHOWNORMAL = 1
Private Sub Command1_Click ()
Call LaunchIt ( "c: \ yourFile.pdf ") End Sub Private Sub LaunchIt (strPathAndFile As String ShellExecute Me.hwnd), vbNullString, strPathAndFile, vbNullString," C: \ ", SW_SHOWNORMAL
End Sub

METHODE 3
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click() Private Sub Command1_Click ()
ShellExecute 0&, "OPEN", "X:\Files\brochure.pdf", "", "", 1 ShellExecute 0 &, "OPEN", "X: \ WINDOWS \ brochure.pdf", "", "", 1
End Sub End Sub