Url active

spaa05 Messages postés 148 Date d'inscription mardi 14 novembre 2000 Statut Membre Dernière intervention 26 juillet 2005 - 21 mai 2005 à 23:54
CTAC Messages postés 133 Date d'inscription mardi 24 décembre 2002 Statut Membre Derniè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

3 réponses

CTAC Messages postés 133 Date d'inscription mardi 24 décembre 2002 Statut Membre Dernière intervention 8 juin 2012 5
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

ctac
0
spaa05 Messages postés 148 Date d'inscription mardi 14 novembre 2000 Statut Membre Dernière intervention 26 juillet 2005 1
23 mai 2005 à 03:19
quel reference je doit ajouter a internet control
0
CTAC Messages postés 133 Date d'inscription mardi 24 décembre 2002 Statut Membre Dernière intervention 8 juin 2012 5
23 mai 2005 à 09:40
Bonjour


Project
References...
Cocher Microsoft Internet Controls qui correspond au fichier SHDOCVW.DLL


ctac
0
Rejoignez-nous