Récupération d'informations

[bellic]

Bonsoir à tous
Je suis en train de réaliser un projet sur excel, et je souhaiterais à l'aide d'une macro récupérer des données sur internet.
Ci joint le site internet :
Fdration Franaise du Btiment > Entreprises > Chiffres > Indices et Index > Index BT

Ce que j'aimerai obtenir c'est en fonction d'un mois, et d'une année inscrit sur excel, cela me donne l'indice du Bt concerné.

Parallèlement à cela sur une autre feuille, je souhaiterai que par un bouton ou une requête, les indices se mettent à jour automatiquement sur excel suivant le site internet.
J'espère avoir été assez clair,
merci à tous de votre aide

 

[JNP]

Re : Récupération d'informations

Bonsoir Bellic 🙂,
Vois si cela te convient 😛...
Bonne soirée 😎

 

[bellic]

Re : Récupération d'informations

Bonsoir, et merci de ta rapidité.
Juste une question : est ce que la liste déroulante sur la feuil1 se met a jour automatiquement.
Par exemple pour l'année 2011 et le mois de janvier?

 

[JNP]

Re : Récupération d'informations

Re 🙂,

Juste une question : est ce que la liste déroulante sur la feuil1 se met a jour automatiquement.
Par exemple pour l'année 2011 et le mois de janvier?

Euh non 😛...
Pour le mois, ils y sont tous donc pas de problème, pour l'année, il faudra la rajouter dans la liste de l'onglet "Listes" en augmentant la taille de la zone nommée 🙄...
Je n'ai pas la possibilité d'intérroger le site pour savoir quelles sont les dates disponibles 😉...
D'ailleurs, si tu appelle Novembre 2010 qui n'est pas en stock actuellement, tu auras un bug, donc tu peux modifier la Sub ainsi

Set Cellule = Sheets("Base").Cells.Find(Target)
If Cellule Is Nothing Then
Target.Offset(0, 1) = "Pas de réponse"
Else
Target.Offset(0, 1) = Cellule.Offset(0, 1)
End If

Bon courage 😎

 

[bellic]

Re : Récupération d'informations

Bonsoir,

Merci beaucoup pour ton aide JNP,

Cordialement,

Bellic