Récupérer l'URL d'une page ouverte par vba apres une recherche

Bonjour,
Je cherche a réaliser une fonction vba qui prend en entrée un string, le rentre dans la barre de recherche d'un site et qui renvoie finalement l'url de la nouvelle page internet ouverte. J'ai réussi a écrire le programme qui ouvre cette nouvelle page, seulement je ne sais pas comment récupérer son URL en sortie. Merci d'avance pour votre aide.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub Ouvrir()   Set IE = CreateObject("internetexplorer.application") IE.Visible = True IE.Navigate ("http://www.boursier.fr/")   Do While IE.Busy Application.Wait (Now() + 1 / 3600 / 24) Loop   Dim htmlDoc As HTMLDocument Set htmlDoc = IE.Document   Dim IECtrl As HTMLFormElement Set IECtrl = htmlDoc.forms(1).elements("hs")   IECtrl.Value = "FR0007017389" htmlDoc.forms(1).submit   Do While IE.Busy Application.Wait (Now() + 1 / 3600 / 24) Loop   End Sub

---

bonjour


je n'ai pas testé ta procédure mais l'adaptation ci dessous devrait te renvoyer l'adresse de la derniere URL ouverte.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Dim winShell As New ShellWindows   Set IE = CreateObject("internetexplorer.application") IE.Visible = True IE.Navigate ("http://www.boursier.fr/")   Do While IE.Busy Application.Wait (Now() + 1 / 3600 / 24) Loop   Dim htmlDoc As HTMLDocument Set htmlDoc = IE.Document   Dim IECtrl As HTMLFormElement Set IECtrl = htmlDoc.forms(1).elements("hs")   IECtrl.Value = "FR0007017389" htmlDoc.forms(1).submit   Do While IE.Busy Application.Wait (Now() + 1 / 3600 / 24) Loop   Set IE = winShell(winShell.Count - 1) MsgBox IE.LocationURL   End Sub

---

bonne journée
michel

Merci beaucoup,
Sais tu au passage on l'on peut trouver une API VBA?