Discussion :

[DD339]

Bonjour,
ci-joint code qui fonctionnait correctement avec Adobe 10.0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Shell("C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe /A page=1  C:\Users\André\Documents\A - Documents usuels\Informatique\A-Projet Applications\A-Mode d'emploi\Documentation\Doc camescope S20.pdf", vbNormalFocus)

mais avec Adobe Acrobat Reader DC, ce code ne fonctionne plus, même en remplaçant 'Reader 10.0' par 'Acrobat Reader DC' dans le code ci dessus, message envoyé : 'fichier introuvable'

Salutations

[madefemere]

Bonsoir,

Vu que tu utilises Shell et non ShellExecute, je te conseille la lecture de cette discussion où tu as un problème similaire au tien.

Si c'est pour ouvrir uniquement le fichier, je conseillerais l'utilisation de ShellExecute avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShellExecute 0, vbNullString, "C:\Users\André\Documents\A - Documents usuels\Informatique\A-Projet Applications\A-Mode d'emploi\Documentation\Doc camescope S20.pdf", vbNullString, vbNullString, 0

Avec la déclaration correspondante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public 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

Cordialement,

[kiki29]

Salut, à adapter/tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
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_SHOWNORMAL = 1
 
Sub Tst()
Dim sFichier As String, WsShell As Object
    sFichier = "C:\Faq\Faq VBA\Exemples\PDF\PdfCreator\catalogue.pdf"
    Set WsShell = CreateObject("WScript.Shell")
    WsShell.Run "AcroRd32 " & sFichier
    Set WsShell = Nothing
End Sub