Sub OuvrePDFHyperlink()
'NF contient le chemin et le nom du fichier PDf dans la cellule active
NF = ActiveCell.Value
ActiveWorkbook.FollowHyperlink (NF)
End Sub
Sub OuvrePDFShell()
'NF contient le chemin et le nom du fichier PDf dans la cellule active
NF = ActiveCell.Value
Shell ("C:\Program Files\Tracker Software\PDF-XChange Viewer\pdf-viewer\PDFXCview.exe " & Chr(34) & NF & Chr(34))
End Sub