Ouvrir un ficher pdf via Excel

Le 23/10/2015 à 21:47

chemin = C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe

newnom = E:\essai\VANDER ZIJPEN_2015_10_23_.pdf

chemin = Sheets(1).Range("C13")
nom = chemin + newnom
Sheets(1).Range("C16") = nom
  ActiveWorkbook.FollowHyperlink Address:=nom
Le 23/10/2015 à 22:26

Bonsoir,

essayez simplement ceci :

newnom = "E:\essai\VANDER ZIJPEN_2015_10_23_.pdf"
ActiveWorkbook.FollowHyperlink Address:=newnom

Vous aurez peut-être un message d'alerte de sécurité, alors vous pouvez ajouter :

Application.DisplayAlerte = False
newnom = "E:\essai\VANDER ZIJPEN_2015_10_23_.pdf"
ActiveWorkbook.FollowHyperlink Address:=newnom
Application.DisplayAlerte = True

Je dirais nul besoin de lancer Reader... Windows connaît les applications à lancer pour lire un fichier qu'on essaie d'ouvrir, c'est comme le double-clic sur l'icône d'un fichier...

@ bientôt

LouReeD

Rechercher des sujets similaires à "ouvrir ficher pdf via"