creation porte-feuille boursier

[danie578]

Bonjour
Venant de decouvrir votre site, je serais interessé de creer un portefeuille boursier avec mis à jour des cotations sur excel
d'avance Merci de vos reponses
Daniel

 

[Herdet]

Re : creation porte-feuille boursier

Bonjour,
Voir page d'accueil Télécharger Professionnels
Il y a des classeurs téléchargeables à adapter si le site MSN Bourse à un peu changé.

Excel Downloads - Bourse
Excel Downloads - Cours Actions via MSN


A +
Robert

 

[Herdet]

Re : creation porte-feuille boursier

Bonjour,
Une solution très simple pour avoir l'actualisation d'une liste d'action boursières avec une seule URL (sans VBA)

Exemple en FR : (Les séparateurs sont des point-virgules ex : FR:VCT;FR:SIL;
http://fr.moneycentral.msn.com/inve...n : Vicat SA - action : FR:VCT - MSN Finances

Exemple en AN : ( Les séparateurs sont des virgules ) ex : FR:VCT,FR:SIL,
http://moneycentral.msn.com/investo...ATO,FR:DEC,FR:RI,FR:SGO,FR:ALU,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