agadiroufla
XLDnaute Junior
Bonsoir,
N'ayant pas bcp de connaissances en HTML,( lecture de code sources), j'en viens a vous pour m'aider à finir mon programme.
En fait, j'un fichier excel avec plusieurs code ISIN dans la colonnes A et je souhaite boucler sur les codes et a aller chercher sur le site de (Bourse de paris, cac 40, nasdaq, warrant avec cotation en direct ) le cours du jours pour chaque valeur et me le mettre dans la colonnes B. Je sais que ce n'est pas évident mais je vous assure que j ai passé pas mal de temps à lire les tutos, notamment celui de Qwazerty mais sans succès.
Ci joint le fichier excel.
Merci par avance
N'ayant pas bcp de connaissances en HTML,( lecture de code sources), j'en viens a vous pour m'aider à finir mon programme.
En fait, j'un fichier excel avec plusieurs code ISIN dans la colonnes A et je souhaite boucler sur les codes et a aller chercher sur le site de (Bourse de paris, cac 40, nasdaq, warrant avec cotation en direct ) le cours du jours pour chaque valeur et me le mettre dans la colonnes B. Je sais que ce n'est pas évident mais je vous assure que j ai passé pas mal de temps à lire les tutos, notamment celui de Qwazerty mais sans succès.
Ci joint le fichier excel.
Merci par avance
Code:
su récup_cours
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputboursoramaZoneTexte As HTMLInputElement
Dim InputboursoramaBouton As HTMLInputElement
'Chargement d'une page Web boursorama
IE.Navigate "www.boursorama.fr"
'Affichage de la fenêtre IE
IE.Visible = True
'On attend le chargement complet de la page
WaitIE IE
'On pointe le membre Document
Set IEDoc = IE.document
'On pointe notre Zone de texte
Set InputboursoramaZoneTexte = IEDoc.all("q")
derligne = Range("A" & Rows.Count).End(xlUp).Row
z = 2
For z = 2 To derligne
'On définit le texte que l'on souhaite placer à l'intérieur
InputGoogleZoneTexte.Value = range("A" & z).value
'On attend la fin de la recherche
WaitIE IE
Next
'le probleme est que je sais pas comment faire pour récupérer le cours de la valeur .
'On libère les variables
Set IE = Nothing
Set IEDoc = Nothing