Bonjour,
J'ai posté ce message en réponse à Danie578 un peu plus bas mais vu le nb de questions journalières, ma réponse va bientôt être noyée dans les pages suivantes.
Voici une solution très simple pour avoir l'actualisation d'une liste d'actions boursières avec une seule URL (sans aucun code VBA)
Exemple en FR : (Les séparateurs sont des point-virgules ex : FR:VCT;FR:SIL;
http://fr.moneycentral.msn.com/inves...- MSN Finances
Exemple en AN : ( Les séparateurs sont des virgules ) ex : FR:VCT,FR:SIL,
http://moneycentral.msn.com/investor...FR:RNO,LU:SESG
Ci-joint un classeur que l'on peut automatiser à loisirs par :
- la sélection des sociétés (cases à cocher ou UserForm avec listes de sélection)
- la construction de la formule du code à partir de la racine
="http://fr.moneycentral.msn.com/investor/quotes/quotes.aspx?symbol="&....Formule
- la récupération de la page Web et la copie dans une feuille Excel par une QueryTables
With ActiveSheet.QueryTables.Add(Connection:="URL;" & URL, Destination:=ActiveSheet.Range("a1"))
On Error GoTo 0
.BackgroundQuery = True
.TablesOnlyFromHTML = True
'On Error Resume Next
' Tant que Refresh n'est pas appelée, l'objet QueryTable ne communique pas avec la source de données
.Refresh BackgroundQuery:=False
On Error GoTo 0
.SaveData = True
End With
Cordialement
Robert
J'ai posté ce message en réponse à Danie578 un peu plus bas mais vu le nb de questions journalières, ma réponse va bientôt être noyée dans les pages suivantes.
Voici une solution très simple pour avoir l'actualisation d'une liste d'actions boursières avec une seule URL (sans aucun code VBA)
Exemple en FR : (Les séparateurs sont des point-virgules ex : FR:VCT;FR:SIL;
http://fr.moneycentral.msn.com/inves...- MSN Finances
Exemple en AN : ( Les séparateurs sont des virgules ) ex : FR:VCT,FR:SIL,
http://moneycentral.msn.com/investor...FR:RNO,LU:SESG
Ci-joint un classeur que l'on peut automatiser à loisirs par :
- la sélection des sociétés (cases à cocher ou UserForm avec listes de sélection)
- la construction de la formule du code à partir de la racine
="http://fr.moneycentral.msn.com/investor/quotes/quotes.aspx?symbol="&....Formule
- la récupération de la page Web et la copie dans une feuille Excel par une QueryTables
With ActiveSheet.QueryTables.Add(Connection:="URL;" & URL, Destination:=ActiveSheet.Range("a1"))
On Error GoTo 0
.BackgroundQuery = True
.TablesOnlyFromHTML = True
'On Error Resume Next
' Tant que Refresh n'est pas appelée, l'objet QueryTable ne communique pas avec la source de données
.Refresh BackgroundQuery:=False
On Error GoTo 0
.SaveData = True
End With
Cordialement
Robert
