Bonjour à tous
utilisant une version adobe 10 j'ai récupéré le code suivant pour ouvrir un fichier PDF et cela fonctionnait parfaitement.
En installant mon fichier excel avec une version adobe 11.0, Adobe s'ouvre bien mais j'ai un message d'erreur "Fichier Introuvable".
En regardant sur le Web il semblerait que les codes en version 11 ne correspondent plus avec une version 10.
Quelqu'un peut il m'aider
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Private Sub Label100_Click() '---- Déclaration des var Dim WshShell As Object, PDFExec As Object Dim CheminReader As String, CheminPDF As String Dim numPage As String '---- Indiquer le Numéro de page à rechercher numPage = 1 '---- Ouverture du fichier PDF CheminReader = Feuil7.Cells(1, 20) ' c:\program files (X86)\Adobe\Reader 10.0\Reader\acroRd32.exe modifier Reader 11.0 CheminPDF = Feuil7.Cells(2, 20) ' c:\gestion MVT\Gestion des Mouvements manuel utilisateur.pdf Set WshShell = CreateObject("WScript.Shell") Set PDFExec = WshShell.Exec(CheminReader & " /a page=" & numPage & "=OpenActions " & CheminPDF) ' fonctionne avec version 10 mais pas en V11 Set PDFExec = Nothing Set WshShell = Nothing End Sub
Partager