Bonjour,
Je souhaite afficher des documents .pdf dans un Userform contenant un Web Browser. J'ai activé le contrôle Microsoft Web Browser. J'ai vraiment cherché et même téléchargé un exemple.
J'utilise le code ci-dessous. Curieusement le fichier ne s'affiche pas dans le Web Browser. J'obtiens plutôt le message de soit ouvrir ou enregistrer le fichier. Si je clique sur Ouvrir il ouvre dans mon navigateur. (Microsoft Edge)
Lorsque je cherche sur le web ... par exemple dans des vidéos et dont on peut voir le code ... ça fonctionne! J'ai aussi lu que cela pouvait être relié à un DWord (excel.exe) manquant dans le registre, Je suis allé l'ajouter.
Pourriez vous svp avoir une idée de ce qui cloche et du comment solutionner? Merci à l'avance.
Me.WebBrowser1.Navigate "about:blank"
Dim pdffile As String
Dim tmpStr As String
J'ai essayé de ces 2 façons.
pdffile = Application.ThisWorkbook.path & "\" & "10000-A1.pdf"
'pdffile = "file:///" & Application.ThisWorkbook.path & "\" & "10000-A1.pdf"
tmpStr = "File:///" & pdffile
MsgBox (tmpStr)
Me.WebBrowser1.Navigate (tmpStr)
Ceci fonctionne.
'Me.WebBrowser1.Navigate ("https://www.google.ca/?hl=fr")
Je souhaite afficher des documents .pdf dans un Userform contenant un Web Browser. J'ai activé le contrôle Microsoft Web Browser. J'ai vraiment cherché et même téléchargé un exemple.
J'utilise le code ci-dessous. Curieusement le fichier ne s'affiche pas dans le Web Browser. J'obtiens plutôt le message de soit ouvrir ou enregistrer le fichier. Si je clique sur Ouvrir il ouvre dans mon navigateur. (Microsoft Edge)
Lorsque je cherche sur le web ... par exemple dans des vidéos et dont on peut voir le code ... ça fonctionne! J'ai aussi lu que cela pouvait être relié à un DWord (excel.exe) manquant dans le registre, Je suis allé l'ajouter.
Pourriez vous svp avoir une idée de ce qui cloche et du comment solutionner? Merci à l'avance.
Me.WebBrowser1.Navigate "about:blank"
Dim pdffile As String
Dim tmpStr As String
J'ai essayé de ces 2 façons.
pdffile = Application.ThisWorkbook.path & "\" & "10000-A1.pdf"
'pdffile = "file:///" & Application.ThisWorkbook.path & "\" & "10000-A1.pdf"
tmpStr = "File:///" & pdffile
MsgBox (tmpStr)
Me.WebBrowser1.Navigate (tmpStr)
Ceci fonctionne.
'Me.WebBrowser1.Navigate ("https://www.google.ca/?hl=fr")