SHDocVw.InternetExplorer Dans shellWindows renvoyant un trop grand nombre d'objets

Question

La ligne de code suivante renvoie plusieurs objets InternetExplorer même si une seule fenêtre du navigateur est ouverte (aucun onglet) et qu'un seul processus iexplore.exe est en cours d'exécution. Comment puis-je obtenir uniquement l'objet fenêtre de navigateur ouvert?

For Each ie As SHDocVw.InternetExplorer In shellWindows

Answer 1

Cela peut aider

Dim objShellWindows As New SHDocVw.ShellWindows 
Dim rVal As SHDocVw.InternetExplorer 
    For Each rVal In objShellWindows 
     Debug.Print TypeName(rVal.Document) 
     If TypeName(rVal.Document) = "HTMLDocument" Then 
      If rVal.Name = "Windows Internet Explorer" Then 
       rVal.Visible = False 
       rVal.Visible = True 
       Set ie = rVal 
       ie.Quit 
       Set ie = Nothing 
      End If 
     End If 
    Next rVal