Originariamente inviato da gibra
Scusa, evidentemente ti mancano alcune informazioni importanti...

Ma tu cosa pensi di star utilizzando quando usi CreateObject("InternetExplorer.application")?
Guarda che è lo stesso identico controllo!

La sola differenza (a parte l'interfaccia) è che usando CreateObject() non hai alcun potere di controllare l'oggetto creato.

E' come creare un foglio Excel da VB, poi l'utente chiude il foglio Excel, e tu rimani lì come uno stoccafisso con l'istanza di Excel 'appesa' nel limbo, con cui non puoi farci niente se non... beccarsi gli errori.

Altrimenti devi giostrare un po' con l'intercettazione degli errori:

codice:
' Dichiarazioni a livello di Form
Dim web As Object
Dim sURL As String

Private Sub Command1_Click()
        
    If web Is Nothing Then
        Set web = CreateObject("InternetExplorer.application")
    End If
    
    web.Visible = True
    web.ToolBar = 0
    
    On Error Resume Next
    web.Navigate2 sURL
    If Err.Number <> 0 Then
        Set web = CreateObject("InternetExplorer.application")
        web.Navigate2 sURL
    End If
    Err.Clear
    On Error GoTo 0
    
End Sub
Così non dovrebbe più darti problemi.


Si non sono un esperto

cmq ho provato il tutto e funziona davvero bene

GRAZIE MILLE

mi hai risolto un problemone!!


EDIT:

unico problema è che adesso quando chiudo il programma ci pensa un pò...
resta in clessidra e dopo circa 30 o 40 secondi si chiude....

posso risolvere in qualche modo ?

Grazie ancora