Rechercher sur Internet le cours d’une valeur à une date donnée
L'exemple présenté ci-dessous n'est donné qu'à titre indicatif.Les pages trouvées sur le Web présentent en effet la particularité d'être très changeantes. Le code qui marche bien aujourd'hui risque de devoir être adapté demain.
Attention, la macro utilise à titre d'exemple des données provenant du site de la Tribune. Ces données restent la propriété de la Tribune, veillez à ne les utiliser que pour vos besoins personnels.
La macro est basée sur les données fournies par La Tribune, mais on peut trouver de nombreuses autres sources de quotations sur le Web.
Quand on télécharge un cours historique sur la Tribune, on obtient l'écran suivant :
On note le nom barbare de l'adresse (réponse à un formulaire html), qui contient les deux informations qui nous intéressent : le numéro de sicovam et la date (sous forme de nombre de séances de bourse).
Il nous suffit alors d'ouvrir, directement sous Excel, la page qui nous intéresse par :
Workbooks.Open suivi du nom barbare dans lequel on a remplacé les sicovam et dates par leur valeur.
Dans Excel, il faut récupérer les informations qui nous intéressent.
Il est vivement recommandé de ne pas se limiter à repérer les adresses des cellules : celles-ci seront amenées à changer souvent au fil des mises à jour du site source.
La méthode utilisée ci-dessous ne fait que limiter le risque : elle consiste à rechercher sur la page les mots clés qui permettent de retrouver les données (utilisation de la méthode Find sur les mots "Date", "clôture" et "valeur").
Noter également la commande "MergeCells=False qui facilite la recherche en supprimant les fusions de cellules.