bonsoir
cet exemple permet de boucler sur toutes les fenetres Internet Explorer ouvertes et d'afficher l'URL & la zone de texte selectionnée dans chaque page
'necessite d'activer la référence "Microsoft Internet Controls"
Dim IE As New InternetExplorer
Dim winShell As New ShellWindows
On Error Resume Next
For Each IE In winShell
If IE.LocationURL <> "" Then _
MsgBox IE.LocationURL & vbCrLf & vbCrLf & IE.Document.Selection.createRange.Text
Next IE
Set IE = Nothing
bonne soiree
michel