XL 2019 Mon PDF ne se visualise pas en un clique du bouton

[ARaul]

Bonjour chers tous..
J'ai inséré une fonction pour pouvoir visualiser dans un autre userform3; Webbrowser1 mon PDF préalablement chargé dans Page Enregistrement, UserForm1 à l'aide du bouton Ouvrir DOC dans Userform1; page Enregistrement.

Le problème est que l'on doit cliquer une première fois et fermer le userfom de visualisation puis cliquer une deuxième fois le bouton avant d'afficher.

S i jointe la foction utlisée.

Function showPDFinAnotherWebBrowser_INSCRIPTION()
Dim PDFUrl As String
PDFUrl = WebBrowser1.LocationURL
UserForm3.Show
If PDFUrl <> "" Then
UserForm3.WebBrowser1.Navigate PDFUrl
Else
MsgBox "Aucun Document PDF chargé.", vbExclamation
End If
End Function

 

[sousou]

Bonjour
un fichier serait bien utile

 

[fanch55]

Saut @ARaul , il a raison @sousou, un classeur serait plus parlant .
Sinon, pourquoi ouvrir un webbrowser pour visualiser un Pdf ?

 

[ARaul]

Bonjour
un fichier seraiJe comprends mais

 

[ARaul]

Bonjour
un fichier serait bien utile

Je comprends mais, en fait le fichier étant déjà en PDF est à importer dans le Userform depuis le poste de travail. Ce n'est pas un fichier généré par la projet.

La 1ère image illustre l'importation du fichier PDF qui était dans mon poste ordinateur
La 2ème image illustre la visualisation (grand format) du document après avoir cliquer sur le bouton Ouvrir DOC

Le problème, c'est que la visualisation ne présente rien (vide) au premier clique du bouton et il faut fermer le userform3 et cliquer encore sur le bouton une deuxième fois.

 

[fanch55]

Ce que tu montres est une extension NitroPdf .
Peux-tu fournir le classeur ? ou une version expurgée ...

 

[ARaul]

Ce que tu montres est une extension NitroPdf .
Peux-tu fournir le classeur ? ou une version expurgée ...

Non. Vous m'avez pas compris. Voyez les deux images que j'ai encore joint ici. Le document à visualiser n'est pas générer par le projet mais on veut plutôt l'importer dans le projet. Donc il devrait être préalablement dans le poste sur le bureau ou quelque part. L'importation marche mais c'est la visualisation que ne passe pas lorsqu'on clique une première fois sur le bouton Ouvrir DOC.

 

[fanch55]

J'ai bien compris, mais il me faudrait le code du userform1 qui lance l'userform3 et éventuellement celui de l'userform3 s'il y en a .
Je ne voudrai pas répondre en aveugle ...

 

[bakerman2]

Bonjour ARaul,
Vous utilisez constamment des fonctions pour des choses pour lesquelles elles ne sont pas adaptées.
Une fonction sert à renvoyer une valeur, pas à exécuter du code.
Pour exécuter du code on use

Private Sub showPDFinAnotherWebBrowser_INSCRIPTION()
'reste du code .....
End Sub

 

[TooFatBoy]

Hello,

Vous utilisez constamment des fonctions pour des choses pour lesquelles elles ne sont pas adaptées.
Une fonction sert à renvoyer une valeur, pas à exécuter du code.

On lui a déjà dit plusieurs fois, mais ça ne semble pas l'émouvoir plus que ça. 😉

 

[patricktoulon]

Bonjour
si le chemin du pdf est bon et qu'il ne s'affiche pas dans le webbrowser c'est que tu n'a pas le plugin IE indispensable pour que le webbrowser t'affiche le pdf
ce plugin n'est plus distribué depuis la version 10 d'adobe reader maintenant
le plugin pdf web est intégré automatiquement dans edge et Firefox et opera
conclusion
faire comme moi
installer le adobe reader 09 réinstaller par dessus sans supprimer l'ancien (donc le 09) la derniere version
on garde ainsi le plugin
NB

bakerman2
Vous utilisez constamment des fonctions pour des choses pour lesquelles elles ne sont pas adaptées.
Une fonction sert à renvoyer une valeur, pas à exécuter du code.

ça se discute perso il m'arrive d'utiliser des "Function...(...)" comme des sub ,le tout est de savoir ce que l'on fait
Patrick

 

[nullosse]

Salut,
Pour éviter de cliquer deux fois il faut déplacer le .Navigate dans l’événement Userform_Activate, qui se déclenche quand le formulaire est réellement visible et que le WebBrowser est prêt.

Public PDFUrl As String
Private AlreadyLoaded As Boolean

Private Sub UserForm_Activate()
    If Not AlreadyLoaded Then
        AlreadyLoaded = True
        If PDFUrl <> "" Then
            WebBrowser1.Navigate PDFUrl
        Else
            MsgBox "Aucun Document PDF chargé.", vbExclamation
        End If
    End If
End Sub

Sub showPDFinAnotherWebBrowser_INSCRIPTION()
    Dim PDFUrl As String
    PDFUrl = WebBrowser1.LocationURL
    UserForm3.PDFUrl = PDFUrl
    UserForm3.Show
End Sub

Et pour la visualisation des PDF dans l'activeX WebBrowser qui est un Internet Explorer 11 il faut un plugin ancien (car Internet Explorer n'est plus mis à jour) par exemple Adobe Reader ancienne version ou Nitro Software. A noter que ces plugins n'existent qu'en 32 bits donc impossible d'utiliser la visualisation de PDF dans un webBrowser avec Un Excel 64 bits.
Nullosse

 

[fanch55]

Et pour la visualisation des PDF dans l'activeX WebBrowser qui est un Internet Explorer 11 il faut un plugin ancien (car Internet Explorer n'est plus mis à jour) par exemple Adobe Reader ancienne version ou Nitro Software. A noter que ces plugins n'existent qu'en 32 bits donc impossible d'utiliser la visualisation de PDF dans un webBrowser avec Un Excel 64 bits.

En fait, le Webbrowser appelle le programme natif par défaut pour les fichiers PDF ( Adobe, NitroPDF, XChange ou autres ).
S'il n'y en a pas, il va le passer à Ms-Edge qui va demander si on veut le télécharger ou l'ouvrir .
En ce cas on va avoir 2 fenêtres, une pour le Userform/WebBrowser et une pour Egge-PDF.
S'il y a un programme natif, il va être intégré dans la fenêtre du Userform/WebBrowser .
Ainsi, on peut "visualiser" un Pdf via le WebBrowser que ce soit en 32 ou 64bits .

 

[patricktoulon]

Bonjour @fanch55
a bon il existe un plugin 64 bits pdf pour le webbrowser qui n'est plus sensé fonctionner en 64
????????????????????????????
ça sent la bidouille

 

[fanch55]

Aucune bidouille, mon plug Pdf est Xchange, celui du demandeur est NitroPdf, je n'ai pas testé avec Adobe .