Bonjour lebarbo, Hellboy, le forum,
Pour lebarbo,
C’est un peu compliqué, en effet d’accéder à ton souhait :
1/ Fonds 1,3,5ans, changer l’adresse court terme (c’est le plus simple)
http://www.morningstar.fr/quickrank/default.aspx?tab=RSLTS&SortBy=fc_1_Day&sortorder=DESC
En long terme
http://www.morningstar.fr/quickrank/default.aspx?tab=HSTRY&SortBy=fc_1_Year&sortorder=DESC
(mais dans la feuille « Fonds », il n’y a plus la ventilation action, obligations, cash)
ensuite, il faut faire correspondre ces classements aux fonds PEA, qui, eux sont classés à court terme dans les pages morningstar (à partir du sélecteur)
http://www.morningstar.fr/fundselect/default.aspx
http://www.morningstar.fr/fundselec...Pct=&PctRegion_ID=-1&submit1=%A0Rechercher%A0
2/ action, obligations, cash, : ce sont des critères de composition des portefeuilles, qu’on retrouve à :
après téléchargement , il faut croiser les critères…
C’est un travail de Romain que tu nous demandes de réaliser !!! il y en a pour des heures…
Il faut reprendre tout le code et les adresses url, modifier, vérifier… bref, c’est une galère…
(faudrait toute une romaine légion)
&&&&&&&&&&&&&
Pour Hellboy, ta dernière modif sur la suppression des lignes indésirable, il y a un bogue. Je n’ai pas trouvé le temps de trouver pourquoi et donc je n’ai pas de solution pour corriger, pour le moment
'---------------supprime les lignes 'Fonds' Moyenne et autre pour les Fonds ----------
bytColumnRef = Cells(9, 1).End(xlToRight).Column
For bytColumnRef = 1 To 2 Step 1
If bytColumnRef = 2 And Left(CStr(Cells(8, bytColumnRef)), 3) <> 'Moy' Then
bytColumnRef = 3
End If
Cells(6 + bytColumnRef, bytColumnRef).Activate
Set Plage = Range(Cells(6 + bytColumnRef, bytColumnRef), Cells(Cells(65536, bytColumnRef).End(xlUp).Row, bytColumnRef))
'Plage.Find(What:=CStr(Cells(8, bytColumnRef)), After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, _
'SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
'MatchCase:=True).EntireRow.Delete
Do
' Plage.FindNext(After:=ActiveCell).EntireRow.Delete
Loop Until Plage.FindNext(After:=ActiveCell) Is Nothing
Next bytColumnRef
&&&&&&&&&&&&&&&
(Ouf! 46K ça passe encore ! )
si tu veux envoyer >50Ko, tu peux utiliser
http://cjoint.com/index.php