Discussion :

[CODYCO]

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 :

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

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

[Oliv-]

Salut,
En fait tu veux fermer des fenetres IE qui s'ouvrent toutes seules ?

[CODYCO]

En faite mes fenêtre IE se ferme bien mais les sessions tourne toujours en arrière plan...

[Oliv-]

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

[Oliv-]

Ca doit venir de ton new

essaye comme cela

Code :

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

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

[patricktoulon]

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