composant InternetExplorer

Question

Private WithEvents ie As SHDocVw.InternetExplorer
Private ie_document As MSHTML.HTMLDocument

Private Sub Form_Load()
    On Error GoTo errorhandler

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Navigate "h:\user\xml	est.html"
    Set id_document = ie.Document
    ie.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER, Null, Null
    ie.Visible = True
    ie.MenuBar = False
    ie_document.bgColor = red
    Exit Sub
errorhandler:
    MsgBox Err.Description
End Sub



J'ai ajouté les références Microsoft Internet Controls et Microsoft HTML library

L'erreur 91 object variable or  With block wariable not set se déclenche à la ligne précédent Exit Sub .

Quelle est la cause, comment y remédier ?

Merci

nhervagault · Answer

Est ce que le composant de navigateu webbrowser de vb te simplifirait pas la vie ???

Pour infos c'est la ligne ie.bgcolor = red 
qui deconne

cs_chel · Answer

Ajouter aussi la réference : Microsoft Internet Control

Dans l-instruction : Set id_document = ie.Document

remplacer id_document par ie_document

Composant InternetExplorer

2 réponses

Discussions similaires