Ouvrir un fichier pdf à une page précise

Bounjour à tous.

Il y a quelques semaines, j'avais demandé s'il était possible d'avoir un lien hypertexte dans userform et que celui-ci nous dirige vers une site internet.

http://www.developpez.net/forums/d99...text-userform/

Si le site internet que je désir lié avec mon label1 et le code proposé est un fichier pdf qui s'ouvre à partir du site internet du gouvernement, est-il possible de faire en sorte que le lien ouvre directement à la page 12 (par exemple) de ce fichier PDF

Merci à l'avance

Dlight

Salut,pour ouvrir un fichier PDF sur un DD à une page précise

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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 9.0\Reader\acrord32.exe" CheminPDF = sFichier   Set WshShell = CreateObject("WScript.Shell") Set PDFExec = WshShell.Exec(CheminReader & " /a page=" & numPage & "=OpenActions " & CheminPDF)   Set PDFExec = Nothing Set WshShell = Nothing   End Sub

---

reste à l'adapter à ton contexte

Merci à vois Kiki29. C'est exactement ce que je voulais.:ccool:

Dlight

Boujour à nouveau.

J'ai testé le code sur les ordinateurs chez mon employeur et j'ai un erreur d'exécution -2147024894 - le fichier est introuvable.

Voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Label1_Click()   Dim WshShell As Object, PDFExec As Object Dim CheminReader As String, CheminPDF As String Dim numPage As String, sFichier As String   sFichier = "C:\Guides\T1 guide 2010.pdf" numPage = 17 CheminReader = "C:\Program Files\Adobe\Reader 9.0\Reader\acrord32.exe" CheminPDF = sFichier   Set WshShell = CreateObject("WScript.Shell")   Set PDFExec = WshShell.Exec(CheminReader & " /a page=" & numPage & "=OpenActions " & CheminPDF)   Set PDFExec = Nothing Set WshShell = Nothing UserForm1.Hide     End Sub

---

Quelqu'un m'expliquer pourquoi ça ne fonctionne pas sur les ordinateurs chez mon employeur alors que le code de Kiki29 a fontionné du premier coup à la maison.

J'ai validé le nom du répertoire est bien le bon ainsi que le nom du fichier avec :

Code:

---

sFichier = Application.GetOpenFilename("PDF Files (*.pdf), *.pdf")

---

Merci à l'avance

Dlight

Bojour à tous.

Après quelques tests, j'ai compris que ce n'est pas le fichier pdf qui est introuvable mais le fichier "acrord32.exe" qui est introuvable car je n'avais pas la version 9.0 d'intaller mais la 10.0.

Dlight