Discussion :

[turtle5]

Bonjour,
J'ai regardé sur le forum et je crois (et j'espère) ne pas me tromper en n'ayant pas trouvé mon sujet.
Je cherche à faire un lien hypertexte d'une cellule XL (version 2003) vers un endroit précis d'un PDF, ou du moins une page précise d'un PDF.
J'ai trouvé des infos sur d'autres forums me disant d'ajouter après le nom du PDF cible le "#page = x" mais ça ne fonctionne pas.

Quelqu'un a-t-il une solution ?
merci d'avance et bonne fêtes à tous

Turlte5

[Daniel.C]

Bonjour,

Malheureusement, ça ne fonctionne facilement que pour un pdf se trouvant sur internet, pas sur ton disque local.
Tu peux utiliser le code suivant et le rattacher à une cellule avec l'évènement double-clic, par exemple :

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
Sub test1()
    'cocher la référence Microsoft Internet Controls et
    'Microsoft HTML Object Library
    Dim myLink As String
    Dim TargetPage As Double
    Dim objIE As New InternetExplorer
    'Set objIE = CreateObject("Internetexplorer")
    myLink = "C:\Users\Daniel\Documents\Donnees\Daniel\95ExcelTipsv4.pdf" 'Replace with your PDF path destination
    TargetPage = 3   'Page number to be shown
 
    With objIE
        .Navigate myLink & "#page=" & TargetPage
        .Visible = True
    End With
End Sub

Désolé pour le nom des variables, c'est brut de copie de la page :

http://forums.techguy.org/business-a...age-excel.html