Discussion :

[dlight]

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

[kiki29]

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

Code :

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

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

[dlight]

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

Dlight

[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 :

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

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 :

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

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

Merci à l'avance

Dlight

[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