Probleme 1er plan [Résolu]

Messages postés
70
Date d'inscription
dimanche 28 mai 2017
Statut
Membre
Dernière intervention
30 novembre 2019
-
Bonjour le forum
j'utilise le code
[/contents/446-fichier-sub Sub] pdf_devis()

rep = Sheets("renseignement client").Range("B38").Value
   monfichier = Dir("*.[/fichier/pdf.php3 pdf]")
         Shell "C:\Program Files ([/contents/763-processeur x86])\Adobe\Acrobat Reader DC\Reader\acrord32.exe " & rep, vbNormalFocus

        monfichier = Dir()
End Sub


pour afficher un pdf
mais il est tjrs en arrière plan comment faire pour le mette au 1er plan?
merci de vos lumières
Afficher la suite 

2 réponses

Messages postés
9050
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
5 décembre 2019
464
0
Merci
bonjour, peux-être suffit-il de minimiser Excel?
Commenter la réponse de yg_be
Messages postés
6421
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
5 décembre 2019
420
0
Merci
Bonjour,

voir cela:

https://codes-sources.commentcamarche.net/source/101647-ouvrir-un-pdf-a-une-page-donnee

ce qui donne:

ThisWorkbook.FollowHyperlink "C:\Users\LePivert\Documents\My eBooks\imprimante_2540.pdf" ' chemin du pdf
 SendKeys "+^n" & 1 & "~" 'ouvre la page 1
 SendKeys "{NUMLOCK}"


voilà c'est tout simple!

yanndebretagn
Messages postés
70
Date d'inscription
dimanche 28 mai 2017
Statut
Membre
Dernière intervention
30 novembre 2019
-
merci c parfait
comme dab
a+
Commenter la réponse de cs_Le Pivert