Visualisation d'un fichier PDF dans une UserForm

Version imprimable

09/05/2016, 22h27
jijie

Visualisation d'un fichier PDF dans une UserForm

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?

1 pièce(s) jointe(s)

Salut, bestialement qqch comme ceci ( améliorable )

● Dans un module VBA standard

Code:

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:

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

12/05/2016, 02h49
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 !:ccool:
12/05/2016, 04h18
kiki29

2 pièce(s) jointe(s)

Salut, tu remplaces

Code:

WebBrowser1.Navigate Fichier

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

Code:

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.
13/05/2016, 00h20
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:

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:

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!
13/05/2016, 01h16
kiki29

1 pièce(s) jointe(s)

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

sinon il y a aussi

Code:

WebBrowser1.Navigate Fichier & "#zoom=250%&page=3&toolbar"
13/05/2016, 02h31
jijie
Non rien à faire!! Peut-être je le place mal?
Code:

1 2 3 4 5 ZoomPdf = "#" & "zoom=" & UserVisuScan.Coef & "&page=3""" UserVisuScan.WebBrowser1.Navigate Chemins & ZoomPdf UserVisuScan.WebBrowser1.Refresh
et au faite à quoi sert : page=3 ?

Citation:

Envoyé par kiki29

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

sinon il y a aussi

Code:

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

Non toujours pas:
Code:

1 2 3 4 5 ZoomPdf = "#" & "zoom=" & UserVisuScan.Coef & "&page=3&toolbar""" UserVisuScan.WebBrowser1.Navigate Chemins & ZoomPdf UserVisuScan.WebBrowser1.Refresh
Citation:

Envoyé par jijie

et au faite à quoi sert : page=3 ?

Autant pour moi c'est le numéro de page si il yen a au moins 3!!:scarymov:
13/05/2016, 02h32
kiki29

page=3 : c'est juste à titre d'exemple pour aller à la page 3 du pdf.
peut-être un problème lié au cache du navigateur ?
13/05/2016, 02h35
jijie

Peut-être ! Mais sur mon autre ordi c'est la même chose !

Et comment peut-on regardé ce problème? si on lance deux fois de suite la procédure le pdf disparaît!
13/05/2016, 06h24
kiki29

Avec "WebBrowser1.Navigate Fichier & "#zoom=100%&page=1&toolbar"" tu as une barre d'outils qui permet à l'utilisateur de faire ce qu'il veut.
13/05/2016, 06h29
jurassic pork

1 pièce(s) jointe(s)

hello,
jijie il y a une chose qui m'intrigue : tu n'as pas la barre d'outils où l'on peut régler le zoom ?

Parce que chez moi sous windows 7 , internet explorer 11, Adobe reader 9.5 avec le code à kiki29, j'ai la barre d'outils sans mettre d'options dans la commande :

Pièce jointe 209563

Ami calmant, J.P
13/05/2016, 09h11
jijie
Salut à vous eux!

Si bien-sur il y a la barre, mais je voulais juste que pour le premier PDF ça règle le zoom que l'utilisateur gardera sur tous les pdf suivant. Je me suis mal expliquée ! Le code de Kiki29 fonctionne parfaitement! C'est désormais un détail.

Lorsque j'ouvre le pdf et que l'utilisateur veut régler un zoom qui lui convient à sa vue et à son écran je voulais que le pdf déjà ouvert se règle sur le zoom choisi. Mais si après le changement de zoom je relance la procédure :
Code:

1 2 3 ZoomPdf = "#" & "zoom=" & UserVisuScan.Coef & "&page=1&toolbar""" UserVisuScan.WebBrowser1.Navigate Chemins & ZoomPdf
le Pdf disparaît.
Tout cela parce que la variable "Chemins" ne change pas. Et lorsque l'utilisateur va chercher un autre pdf alors la variable "Chemins " est modifiée et le zoom demandé est adapté.
Je comprend votre solution de changer dans le directement le zoom menu, mais à l'ouverture du pdf suivant il ne va pas en tenir compte.

Ne vous inquiétez pas je m’adapte très bien au code de KIKI dont je reconnais une très très grande maîtrise des pdf.

Pour permettre de résoudre le pb quand on charge un fichier pdf sans fermer l'UserForm ( vbModeless ), il faut rajouter une TextBox.

Dans un module VBA standard

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit

Sub SelectPDF()
Dim Fichier As Variant

    ChDir ThisWorkbook.Path & "\"
    Fichier = Application.GetOpenFilename("Fichier PDF (*.pdf), *.pdf")
    If Fichier <> False Then
        With UserForm1
            .TextBox1.Text = Fichier
            .Show vbModeless
        End With
    End If
End Sub

Affecter un bouton à la procédure SelectPDF

Dans une UserForm

Ajouter un contrôle Microsoft WebBrowser
Ajouter un contrôle TextBox1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Private Sub UserForm_Initialize()
    With UserForm1
        .Width = 640
        .Height = 480
    End With
    With WebBrowser1
        .Left = 5
        .Top = 5
        .Width = UserForm1.Width - 10
        .Height = UserForm1.Height - 35
    End With
End Sub
 
Private Sub Textbox1_Change()
    WebBrowser1.Navigate TextBox1.Text & "#zoom=250%&toolbar"
End Sub

16/05/2016, 08h27
jijie
Salut Kiki29

Tu me donne ceci:
Code:

1 2 3 4 Private Sub Textbox1_Change() WebBrowser1.Navigate TextBox1.Text & "#zoom=250%&page=3&toolbar" WebBrowser1.SetFocus End Sub
J'ai bien essayé ta version, mais comme je te le disait précédemment, je ne change pas la valeur du textbox ou du chemin c'est juste le zoom que je change donc le pdf disparait. Si je prend un autre pdf alors tout rentre dans l'ordre. Je pensais que si on vidait le : WebBrowser1.Navigate "" , mais rien y fait:arf:
Par contre la version de fermer l'user est celle que j'avais adopté. C'est un détail, mais je trouve que ça ne fait pas propre!

Re Salut

je viens de trouver une solution qui cette fois fonctionne, mais je ne sais pas si c'est réglo:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub SelecFichier()
 
UserVisuScan.Show vbModeless
ZoomPdf = "#" & "zoom=" & UserVisuScan.Coef & "&page=1&toolbar"""
 
 Application.ScreenUpdating = False 'désactive la mise à jour de l'écran
 
ligne = ActiveCell.Row
 
If Chemins = ThisWorkbook.Path & Application.PathSeparator & Sheets("15-16").Cells(ligne, 20) Then
 
UserVisuScan.WebBrowser1.Navigate ("about:blank")
 
 ' Attendre 1 seconde
Application.Wait Time + TimeSerial(0, 0, 1)
 
End If
 
 
Chemins = ThisWorkbook.Path & Application.PathSeparator & Sheets("15-16").Cells(ligne, 20)
 
 
 
 UserVisuScan.WebBrowser1.Navigate Chemins & ZoomPdf
 UserVisuScan.WebBrowser1.SetFocus
 
 
End Sub

En utilisant : UserVisuScan.WebBrowser1.Navigate ("about:blank")
puis une pose là ça fonctionne!

16/05/2016, 13h39
kiki29

1 pièce(s) jointe(s)

Salut, si tu actives la barre d'outils contenant le zoom :
Quand tu ouvres un pdf et modifies le facteur de zoom, mettons 50 via l'outil idoine
et qu'ensuite tu ouvres un autre pdf et modifies ce facteur de zoom , mettons 125
et que maintenant tu rouvres le 1er fichier on retrouve le facteur de zoom sélectionné càd 50 à la page sélectionnée.
etc etc jusqu'à la fermeture de l'UserForm.
16/05/2016, 14h45
jijie

Ok mais comme j'active et désactive régulièrement mon user je préfère resté sur ma position qui fonctionne parfaitement!

Mais merci et continu car je me sert souvent de tes discussions!

à bientôt
16/05/2016, 15h03
kiki29

Pour info : Parameters for Opening PDF Files
16/05/2016, 17h49
jijie

Merci, cela complète ma formation!!

quel forum agréable! :bravo: