Problème pour visualiser un PDF dans un webbrowser
Bonjour à tous,
J'ai un fichier pdf que je veux visualiser dans un webbrowser.
Lors de mes recherches sur votre site, j'ai trouvé le code ci-dessous.
Mais, lorsque je veux visualiser le fichier pdf, il s'ouvre dans une seconde fenêtre en utilisant acrobat reader et m'affiche, dans le webbrowser, un message comme quoi le lien n'est pas bon. Je n'ai pas de code erreur, rien.
Pourtant ce dernier est correct puisqu'il l'ouvre.
Est ce que vous pouvez m'aider ?
Je ne comprends pas trop ce qu'il se passe.
Merci.
Stefan
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
'Nécessite d'activer la référence "Microsoft Internet Controls".
Dim WithEvents cible As SHDocVw.WebBrowser_V1
' Chemin complet du pdf à visualiser
Dim MonDocPdf as String
Private Sub cible_NewWindow(ByVal URL As String, _
ByVal Flags As Long, ByVal TargetFrameName As String, _
PostData As Variant, ByVal Headers As String, Processed As Boolean)
Processed = True
WebBrowser1.Navigate URL
End Sub
Private Sub UserForm_Initialize()
Set cible = WebBrowser1
WebBrowser1.Navigate2 MonDocPdf & "#toolbar=0&navpanes=0"
End Sub |