Discussion :

[ubssecurities]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ubssecurities]

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