session internet explorer

Version imprimable

Bonjour à tous et bon week end

Via mon code je créer une session internet explorer, puis en fin de code je ferme cette session, enfin c'est ce que je croyais.

Car en faite via ctrl+alt+supp onglet processus je m'appercois qu'a chaque exécution il créer une nouvelle session et que toutes les session tourne toujours, alors que ma fenetre IE est bien fermé !?

une idée?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Worksheet_Calculate() Dim IE As New InternetExplorer Dim winShell As New ShellWindows Dim maPageHtml As HTMLDocument For Each IE In winShell If IE.LocationURL = "file:///R:/3_.../VBA/ProgressBar.html" Then 'adresse de mon fichier IE.Quit Set IE = Nothing End If Next IE Set IE = Nothing End Sub

23/11/2012, 11h33
Oliv-

Salut,
En fait tu veux fermer des fenetres IE qui s'ouvrent toutes seules ?
23/11/2012, 11h36
CODYCO

En faite mes fenêtre IE se ferme bien mais les sessions tourne toujours en arrière plan...
23/11/2012, 11h46
Oliv-

C'est sans doute qu'il y a un autre onglet d'ouvert !
tu peux mettre
IE.Visible = True

Ca doit venir de ton new

essaye comme cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Public Sub Trouve_fenetre_internet()
 
maPageURL = "https://www.google.fr/webhp?sourceid=navclient&hl=fr&ie=UTF-8"
 
'find the right internet explorer webpage
    Dim allExplorerWindows As New SHDocVw.ShellWindows
    Set allExplorerWindows = New SHDocVw.ShellWindows
 
    Dim foundFlag As Boolean
    foundFlag = False
 
    For Each IEwindow In allExplorerWindows
        'MsgBox IEwindow.LocationURL
Debug.Print IEwindow.LocationURL
 
        If InStr(IEwindow.LocationURL, maPageURL) <> 0 Then
            Dim IE As InternetExplorer
            Set IE = IEwindow
            IE.Visible = True
            IE.Quit
        End If
    Next
 
    If Not foundFlag Then
        Dim DisplayBox As VbMsgBoxResult
        DisplayBox = MsgBox("Introuvable" & vbCr & " Veuillez lancer le page" _
                   , vbOKOnly, "Fenetre introuvable!")
        End
    End If
 
 
 
End Sub

23/11/2012, 12h41
patricktoulon

heu

bonjour

je confirme ce que dit oliv+ c'est bien ton new

puisque dim machin as new truc 'machin est un nouveau truc

bidule=machin'alors bidule est un nouveau truc
a chaque fois c'est un nouvel object qui se créé

enleve le new

au plaisir