ouvrir un fichier pdf sur une page preciseRésolu

Question

Bonjour,
Je voudrais ouvrir un document pdf sur une page bien precise (26/78) avec VB Excel,J'ai utilisé ce code mais il l'ouvre sur la 1ere page. 
Merci de votre aide . Cordialement   A+

Private Sub CommandButton9_Click()

Dim Page As Integer
Dim OuvFich As Long
Dim Fichier As String
OuvFich = Shell("C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.EXE ,Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, page:=26 ""C:\LUN.pdf", vbNormalFocus)

End Sub

PCPT · Accepted Answer

salut

çà serait plutôt...
Shell "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.EXE /A page= 26 C:\LUN.pdf"

cependant acrobat n'est pas forcément installé, pas forcément en version 6, pas plus que dans le dossier que tu indiques

 http://www.codyx.org/snippet_ouvrir-fichier-pdf-page-precise_561.aspx 
++
<hr size ="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

amrw · Answer

salut PCPT,
Merci beaucoup de ton aide en fait c'etait bien ça le code pour le doc reste actif allez A+ : 

Private Sub CommandButton10_Click()

 Dim OuvFich As Long 
 OuvFich = (Shell("C:\Program Files\Adobe\Acrobat 6.0Reader\AcroRd32.EXE /A    page=26 C:\LUN.pdf", vbNormalFocus))

End Sub

Ouvrir un fichier pdf sur une page precise

2 réponses

Votre réponse

Discussions similaires