Probleme 1er plan
Résolu
Bonjour le forum
j'utilise le code
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
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
2 réponses
-
Contributeur Ambassadeurbonjour, peux-être suffit-il de minimiser Excel?
-
ContributeurBonjour,
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!
