Discussion :

[ubssecurities]

Re Bonjour,
J'essaye d'écrire une fonction qui prend en entrée l'argument (ISIN) pour l'écrire dans une barre de recherche sur une page internet et qui renvoie l'url de cette page.
Ma fonction renvoie bien l'url mais de la page internet obtenue lorsqu'on écrit "ISIN" dans la barre de recherche: ma fonction ne reconnait pas le code isin qui est destiné à varier.
Merci 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
25
26
27
28
29
30
Public Function Ouvrir(ISIN As String)
 
 
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 = "ISIN"
htmlDoc.forms(1).submit
 
Do While IE.Busy
    Application.Wait (Now() + 1 / 3600 / 24)
 
    Loop
 
Ouvrir = IE.LocationURL
 
End Function

Code :

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

1
2
3
4
Sub Fin()
L = Ouvrir(FR0007017389)
MsgBox (L)
End Sub

[tirex28]

Bonjour,

Essaye:

Code :

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

IECtrl.Value = ISIN

Au lieu de:

Code :

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

IECtrl.Value = "ISIN"

Cordialement,

Tirex28/

[ubssecurities]

ouai j'ai vu cette erreur ca ne marche toujours pas

[Laestic]

Fais un MsgBox de la valeur de ta variable ISIN avant de l'affecter à IECtrl.Value = ISIN. Si le contenu ne correspond pas, c'est que déjà tu n'as pas transmis la bonne valeur, du coup tu remplis le formulaire avec un truc faux (tout ça d'après ce que tu as écris.)

Un ISIN est de quel type, quel format? Entier, décimal, chaîne alphanumérique, binaire...?

[ubssecurities]

Un ISIN si je ne ma trompe pas est un string, sa forme générale est:

FR0010257352

[ucfoutu]

Bonjour,

déjà :
- l'appel devrait être de la forme :

Code :

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

L = Ouvrir("FR0007017389")

et la fonction devrait être typée, genre :

Code :

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

Public Function Ouvrir(ISIN As String) as ....' ici le type de la valeur retournée ...

[ubssecurities]

Merci