Titre du sujet : Re: WebBrowser par MichelXld le 27/03/2008 17:49:29
bonjour à vous ... ;o)
juste pour info, voici la méthode que j'utilise pour forcer l'affichage dans le WebBrowser:
(à placer dans le module objet du UserForm)
Option Explicit
Dim WithEvents cible As SHDocVw.WebBrowser_V1
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 "http://www.mdf-xlpages.com/smartsection+item.itemid+53.htm"
End Sub
bonne soirée michel
|