XL 2016 Ouvrir un fichier .pdf par macro

[loicoss]

Bonjour le forum,

Comme indiquer dans le titre du sujet, je suis à la recherche d'une macro me permettant l'ouverture d'un fichier .pdf se trouvant à la racine du dossier de mon fichier excel.

En vous remerciant par avance.

 

[cp4]

Bonjour,

à mettre dans une procédure et adapter CheminFichier et NomFichier. Si j'ai bien compris la demande.

CreateObject("WScript.Shell").Run CreateObject("Scripting.FileSystemObject").GetFile(CheminFichier & NomFichier).ShortPath

 

[soan]

Bonjour loicoss, cp4,

je propose :

ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\Essai.pdf"

il faut juste adapter le nom du fichier.

soan

 

[soan]

Bonjour Staple1600, patricktoulon,

ma sub complète est celle-ci :

Sub Essai()
  ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\Essai.pdf"
End Sub

je viens de découvrir quelque chose de très curieux !

je croyais qu'il n'y avait aucune différence entre une sub lancée via Alt F8 (fenêtre Macro) et la même sub lancée par un raccourci clavier (par exemple Ctrl e) ; or avec la sub ci-dessus : via Alt F8, no problem : le fichier Essai.pdf s'ouvre direct dans mon logiciel Acrobat Reader DC ; avec Ctrl e : au lieu de faire pareil, avant d'ouvrir le fichier, ça ouvre cette fenêtre pour choisir la langue :

avez-vous une explication là-dessus ? y a-t-il un moyen d'éviter l'apparition automatique de cette fenêtre ?​

soan

 

[Staple1600]

Bonsoir soan

Oui, j'ai un moyen.

NB: Question
Comme se fait-ce que tu me salues avant que je t'intervienne dans le fil?

 

[soan]

ben comme je m'adresse en premier à vous deux, patrick et toi, je commence par vous saluer, par politesse (sinon je sais que vous allez vous vexer ! ) ; et ça serait quoi, ton moyen ? (à part désinstaller Reader et le réinstaller ! )

soan

 

[Staple1600]

Re

Upgrader ton Excel
car avec Excel 2013 su W10, le phénomène que tu constates n'apparait pas sur mon PC.

Voila le moyen.

NB: Ok, je croyais juste que tu m'avais vu passer dans le fil alors que ce n'était pas encore le cas

 

[soan]

MDR !!! j'voulais une solution, mais j'ai pas pensé une seule seconde qu'il faudrait upgrader mon Excel !!! ben alors tant pis, j'reste avec l'inconvénient d'la fenêtre du choix de langue, mon Excel 2007, et mon Windows 7 ; merci quand même pour ta proposition.

j'espère que Microsoft pourra survivre et ne pas péricliter sans que j'lui achète Windows 10 et Office 2019 ! ​

soan

 

[patricktoulon]

bonsoir @soan @Staple1600

et bien moi c'est ctrl F8 qui me donne le message de langue
et pourtant je n'utilise pas follow....k

et ctrl +e c'est pour exporter le module

perso j'utilise une de ces deux

Sub Essai()
    Dim MonApplication As Object
    Set MonApplication = CreateObject("Shell.Application")
    MonApplication.Open ("C:\Users\polux\DeskTop\Test.pdf")
    Set MonApplication = Nothing
End Sub

Sub essai2()    'legerement plus rapide
    On Error Resume Next
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run ("C:\Users\polux\DeskTop\Test.pdf")
    'avec ".Run" il faut preciser l'application avec le quel tu ouvre le fichier
End Sub

 

[soan]

@patricktoulon

merci pour tes infos. (je parlais de Ctrl e depuis Excel, pas depuis l'Éditeur VBA ! )

c'est dommage qu'il n'y a pas un paramètre de ligne de commande d'Adobe Reader pour pouvoir spécifier la langue ; j'ai cherché sur le net, mais j'ai pas trouvé. ​

un truc du genre : /lang=fr_FR ou /lang=fr ; ou même /fr

car si on peut spécifier la langue sur la ligne de code VBA qui ouvre le fichier pdf, la fenêtre du choix de langue ne devrait plus apparaître. (même avec Excel 2007)​

soan

 

[patricktoulon]

a tu veux dire que tu a mis un raccourci clavier a ta sub c'est ça

 

[Staple1600]

Bonsoir patricktoulon

Tu as testé avec quel Excel?
Car chez moi, dans tous les cas, le PDF s'ouvre directement.

 

[soan]

a tu veux dire que tu a mis un raccourci clavier a ta sub c'est ça

oui, c'est bien ça ; avec : fenêtre "Macro", bouton « Options... »

soan

 

[Staple1600]

Re

=>soan
C'est ce que j'avais fait (dès le message#5)
Et je confirme:
Cette fenêtre n'apparait pas dans tous les cas
CTRL+E
F5
CTRL+F8
F8
macro affectée à un bouton

 

[soan]

=>Staple

c'est vraiment bizarre ! à partir de l'Éditeur VBA :

* avec F5 et F8 : ok : pas de fenêtre de langue

* via un bouton : pas de fenêtre de langue

* avec Ctrl F8 :

donc la fenêtre apparaît avec Ctrl F8 ou via un raccourci clavier comme Ctrl e ; à tout hasard, j'ai choisi une autre lettre : Ctrl d ; ça fait pareil que pour Ctrl e : la fenêtre de langue apparaît aussi ; bon, ben le plus simple, c'est de lancer la sub via Alt F8.​

soan