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