XL 2016 Ouvrir un fichier .pdf par macro

cp4

XLDnaute Barbatruc

• 18 Février 2021

• #2

Bonjour,

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

VB:

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 18 Février 2021

• #3

Bonjour loicoss, cp4,

je propose :

VB:

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

il faut juste adapter le nom du fichier.

soan

 

Vote positif 0 Vote négatif

Solution

S

soan

XLDnaute Barbatruc

Inactif

• 18 Février 2021

• #4

Bonjour Staple1600, patricktoulon,

ma sub complète est celle-ci :

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Février 2021

• #5

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?

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 18 Février 2021

• #6

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Février 2021

• #7

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 18 Février 2021

• #8

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Février 2021

• #9

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

VB:

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 18 Février 2021

• #10

@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

 

Dernière édition: 18 Février 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Février 2021

• #11

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Février 2021

• #12

Bonsoir patricktoulon

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 18 Février 2021

• #13

patricktoulon à dit:

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

Cliquez pour agrandir...

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

soan

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Février 2021

• #14

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 18 Février 2021

• #15

=>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

 

Vote positif 0 Vote négatif