Probleme 1er plan

Résolu/Fermé
yanndebretagn Messages postés 100 Date d'inscription dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 - Modifié le 23 nov. 2019 à 14:49
yanndebretagn Messages postés 100 Date d'inscription dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 - 23 nov. 2019 à 20:13
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
A voir également:

2 réponses

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
23 nov. 2019 à 14:49
bonjour, peux-être suffit-il de minimiser Excel?
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
23 nov. 2019 à 15:04
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!

0
yanndebretagn Messages postés 100 Date d'inscription dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 2
23 nov. 2019 à 20:13
merci c parfait
comme dab
a+
0