Discussion :

[jijie]

Bonjour le Forum

J'utilise un code depuis un petit moment de Kiki29 qui fonctionnait parfaitement :
http://www.developpez.net/forums/d43...r/#post6649828

, mais depuis la mise à jour d'acrobat reader en acrobat reader DC que je refusait pour que mon fichier continu de fonctionner! Mais malheureusement la mise à jour s'est faite.

Alors existe t il une solution pour les lires?

[kiki29]

Salut, bestialement qqch comme ceci ( améliorable )

● Dans un module VBA standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
 
Public Fichier As Variant
 
Sub SelectPDF()
    ChDir ThisWorkbook.Path & "\"
    Fichier = Application.GetOpenFilename("Fichier PDF (*.pdf), *.pdf")
    If Fichier <> False Then UserForm1.Show
End Sub

● Affecter un bouton à la procédure SelectPDF

● Dans une UserForm via un contrôle Microsoft WebBrowser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Private Sub UserForm_Initialize()
    With UserForm1
        .Height = 600
        .Width = 600
    End With
    With WebBrowser1
        .Left = 5
        .Top = 5
        .Width = UserForm1.Width - 10
        .Height = UserForm1.Height - 35
    End With
    WebBrowser1.Navigate Fichier
End Sub

[jijie]

Salut Kiki,

Je constate que tu es toujours efficace et surtout très précis. Je t'en félicite et te remercie, j’aurais voulu pouvoir gérer le zoom, mais je ne vois pas trop comment?

En tout cas merci !

[kiki29]

Salut, tu remplaces

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WebBrowser1.Navigate Fichier

par qqch comme ceci pour un zoom de 250 % sur la 3eme page

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WebBrowser1.Navigate Fichier & "#zoom=250&page=3"

Sinon normalement une barre d'outils apparait fugitivement où le zoom +/- est dispo.

Pour info j'ai rajouté la même chose sur une UserForm vierge ici.

[jijie]

Salut Kiki

Merci encore pour ta réponse!
Le but est que ce fichier est utilisé sur plusieurs ordi avec des écrans différents et des utilisateurs différents. Et comme il faut visualiser plusieurs Pdf je voulais que chacun puisse adapter à sa volonté, j'ai donc mis un textbox avec un spid button et chacun adapte son zoom, de ce fait chaque pdf sera affiché au zoom demandé:
Donc mon textbox se nommant coef, j'ai créer une variable ZoomPdf et voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ZoomPdf = "#" & "zoom=" & UserVisuScan.Coef & "&page=3"""
    UserVisuScan.WebBrowser1.Navigate Chemins & ZoomPdf

ça fonctionne parfaitement!!

Seul petit bémol, j'aurais voulu que le pdf déjà ouverts se ré affiche avec le nouveaux zoom, mais le fait que mon "chemins" ne change pas, si je relance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    UserVisuScan.WebBrowser1.Navigate Chemins & ZoomPdf

le pdf disparaît, je dois donc ré-afficher un nvx pdf donc un chemin différents et le zoom choisi est alors actif. Il faudrait peut-être vider le webbrowser, mais même en plaçant ceci devant ma procédure: WebBrowser1.Navigate ("about:blank") , ça ne change rien!

en tout cas merci mille fois!

[kiki29]

Salut, il faudrait peut-être utiliser un WebBrowser1.Refresh ?

sinon il y a aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WebBrowser1.Navigate Fichier & "#zoom=250%&page=3&toolbar"