Rapport de message :*
 

Re: WebBrowser

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 LongByVal TargetFrameName As String_
    PostData 
As VariantByVal Headers As StringProcessed 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