Discussion :

[morgan47]

Bonjour,
j'utilise ce petit script pourp des test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim g_oIE As InternetExplorer
Private Sub Command1_Click()
Set g_oIE = New InternetExplorer
g_oIE.Visible = True
End Sub
 
Private Sub Command2_Click()
g_oIE.Navigate "www.google.Fr"
End Sub

mon problème vient du fait que lorsque l'on appui sur le premier bouton et qu'on ferme la fenetre IE, lorsque l'on appui sur le second bouton il y a un message d'erreur.
Est t'il possible de vérifier si g_oIE a été fermé avant d'envoyé l'instruction de navigation?

Merci pour votre aide

[ucfoutu]

Bonjour,

C'est l'inverse, qu'il te faut faire (vérifier si connection dispo... et laquelle).

Utilise la fonction IsDestinationReachable de la librairie "SENSAPI.DLL" de l'Api de Windows (c'est son rôle).

[DarkVader]

Si une référence à Internet Explorer a été déclarée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Dim sh As New ShellWindows, tWB As String, w As Object, res As String
 
    On Error Resume Next
    For Each w In sh
        tWB = ""
        tWB = w.Type
        If tWB = "Document HTML" Then res = res + w.LocationName + " ( " + w.LocationURL + " )" + vbCrLf
    Next
    MsgBox IIf(res <> "", res, "Aucune session IE trouvé")

[Cravis]

Si ton but est uniquement d'ouvrir une page Web dans le navigateur, tu peux aussi utiliser l'API suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Public Const SW_SHOWNORMAL = 1
Public Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" ( _
    ByVal hWnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Command2_Click()
ShellExecute Me.hWnd, "open", "http://www.google.fr", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Edit : j'avais oublié la déclaration de la constante SW_SHOWNORMAL

[DarkVader]

On répond souvent un peu vite ici en s'en tenant au titre

Bonjour,
j'utilise ce petit script pourp des test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim g_oIE As InternetExplorer
Private Sub Command1_Click()
Set g_oIE = New InternetExplorer
g_oIE.Visible = True
End Sub
 
Private Sub Command2_Click()
g_oIE.Navigate "www.google.Fr"
End Sub

en cherchant midi à 14heures

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Command1_Click()
    If TypeName(g_oIE) <> "IWebBrowser2" Then Set g_oIE = New InternetExplorer
    g_oIE.Visible = True
End Sub

Ce qui me rassure, c'est que je ne suis pas le seul

[morgan47]

La répons de DarkVader est la bonne

Merci beaucoup