spaa05
Messages postés148Date d'inscriptionmardi 14 novembre 2000StatutMembreDernière intervention26 juillet 2005
-
21 mai 2005 à 23:54
CTAC
Messages postés133Date d'inscriptionmardi 24 décembre 2002StatutMembreDernière intervention 8 juin 2012
-
23 mai 2005 à 09:40
bonsoir
comment est ce que je peux verifier si une url est ouvert dans un navigateur
merci
CTAC
Messages postés133Date d'inscriptionmardi 24 décembre 2002StatutMembreDernière intervention 8 juin 20125 22 mai 2005 à 22:16
Bonjour.
Sub TrouveURL()
'Ajouter une référence à Microsoft Internet Controls
Dim SW As ShellWindows
Dim IE As Object
Set SW = New ShellWindows
For Each IE In SW
If TypeName(IE.Document) = "HTMLDocument" _
Then MsgBox IE.LocationURL
Next IE
Set IE = Nothing
Set SW = Nothing
End Sub