Adobe reader XI et vba access 2010

Version imprimable

bonjour,
je veux ouvrir un fichier pdf par du vba access, j'ai parcouru le forum je n'ai trouvé que ce code.

Code:

1
2
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
(ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long

en tête de module puis dans le module

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub OuvrirPdf()
 
  Dim strAcroPath As String, strFichier As String
  Dim intPage As Integer
 
  strAcroPath = String(128, 32)
  strFichier = "ca269" 'A COMPLETER
  intPage = 3 'A COMPLETER
 
  If FindExecutable(strFichier, vbNullString, strAcroPath) <= 32 Then
    MsgBox "Adobe Acrobat Reader n'a pas été trouvé sur cet ordinateur", vbOKOnly + vbCritical, "Message d'erreur"
  Else
    strAcroPath = Left$(strAcroPath, InStr(strAcroPath, Chr$(0)) - 1)
    Shell strAcroPath & " /a page=" & intPage & " " & strFichier, vbNormalFocus
  End If
 
End Sub

quand je lance la fonction, il me répond qu'il ne trouve pas le programme adobe reader (j'ai sans doute fait une erreur d'accepter la mise à jour en adobe reader 11)
quelqu'un a-t-il la solution?
merci par avance

Bonjour.

Voici ce que j'utilise comme méthode :
En déclaration
Code:

1 2 3 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
Et la procédure d'ouverture du pdf
Code:

1 2 3 Dim strCheminRp As String strCheminRp = "ici le chemin du document à ouvrir" ShellExecute Me.hwnd, "open", strCheminRp + "tonfichier.pdf", "", CurrentProject.Path, 1
Bien entendu, pour que cela fonctionne, il faut que les documents pdf soient par défaut associés à Adobe Reader, quelle que soit la version.
Cordialement

17/10/2014, 12h58
Gerard.chery

adobe reader XI et vba access 2010

bonjour
mes fichiers pdf sont créés soit avec adobe reader soit avec pdf creator, soit à partir de word , .
j'ai essayé la solution mais une erreur se produit:
erreur de compilation utilisation incorrect du mot clé Me
merci
17/10/2014, 14h27
RobiPMS

Bonjour.

Essaie en remplaçant Me.hwnd par 0 (le chiffre...).

Cdt
17/10/2014, 14h54
Gerard.chery

adobe reader XI et vba access 2010

re bonjour,
j'ai remplacé par 0, la fonction s'exécute sans erreur, adobe reader ne s'ouvre pas
merci

bonjour,
j'ai fait autrement et voici la solution qui marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub OuvrirPDF2(ByVal sfichier As String, numpage As Long)
Dim WshShell As Object, PDFExec As Object
Dim CheminReader As String, CheminPDF As String
 
    CheminReader = "C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe"
    CheminPDF = sfichier '"c:RecetteVB\DataPdf\ca269.pdf"
 
    Set WshShell = CreateObject("WScript.Shell")
    Set PDFExec = WshShell.Exec(CheminReader & " /a page=" & numpage & "=OpenActions " & CheminPDF)
 
    Set PDFExec = Nothing
    Set WshShell = Nothing
 
End Sub
 
Private Sub OuvrirPdf()
Dim nomfichier As String, numpage As Long
 
nomfichier = "c:RecetteVB\DataPdf\ca269.pdf"
numpage = 3
Call OuvrirPDF2(nomfichier, numpage)
 
End Sub

merci pour le temps passé à essayer de résoudre mon problème