En late binding
Dim winShell As Object, IE As Object
Const stURL As String = "http://www.xxx"
Set winShell = CreateObject("Shell.Application")
For Each IE In winShell.Windows
If...
Type: Messages; Utilisateur: mercatog
En late binding
Dim winShell As Object, IE As Object
Const stURL As String = "http://www.xxx"
Set winShell = CreateObject("Shell.Application")
For Each IE In winShell.Windows
If...
J'étais dans un cas similaire
Dim winShell As New ShellWindows
Dim IE As InternetExplorer
Const stURL As String = "http://www.xxx"
For Each IE In winShell
If IE.LocationURL = stURL...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.