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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager