Probleme 1er plan
Résolu
yanndebretagn
Messages postés
104
Statut
Membre
-
yanndebretagn Messages postés 104 Statut Membre -
yanndebretagn Messages postés 104 Statut Membre -
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
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, peux-être suffit-il de minimiser Excel? -
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!
