Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
cet exemple permet de boucler sur toutes les pages IE ouvertes et d'afficher leur URL
ensuite pour fermer la page , utilises IE.Quit
Sub listerFenetres_IE_Ouvertes()
'activer la référence 'Microsoft Internet Controls'
Dim IE As internetExplorer
Dim winShell As New shellWindows
On Error Resume Next
For Each IE In winShell
If IE.LocationURL <> '' Then MsgBox IE.LocationURL
'IE.Quit 'option pour fermer les fenetres
Next IE
End Sub
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.