cs_zeriab
Messages postés3Date d'inscriptionjeudi 27 mars 2003StatutMembreDernière intervention23 février 2007 23 févr. 2007 à 09:38
Voici une réponse a ma question.
Dim IE AsObject, Sh AsObject, Wn AsObject
Set Sh = CreateObject("Shell.Application")
Set Wn = Sh.Windows
ForEach IE In Wn
If IE.LocationURL <> ""Then MsgBox IE.LocationURL
Next IE
Set Wn = Nothing
Set Sh = Nothing