Probleme 1er plan

Résolu
yanndebretagn Messages postés 100 Date d'inscription   Statut Membre Dernière intervention   -  
yanndebretagn Messages postés 100 Date d'inscription   Statut Membre Dernière intervention   -
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 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour, peux-être suffit-il de minimiser Excel?
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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   Statut Membre Dernière intervention   2
 
merci c parfait
comme dab
a+
0