comment mettre à jour des téléchargements de plusieurs sources??

[albert]

bonjour,

- Le site Euribor donne des historiques mis à jour à peu près tous les 15 jours
http://www.euribor.org/html/download/euribor_2002.xls
- mises à jour plus fréquentes :
http://pieniadz.hoga.pl/euribor.asp

- mise à jour quotidienne

http://www.banque-france.fr/fr/actu/main.htm?menu2=menu%20m31.htm&page=ecofi/2c.htm

mon objectif est de mettre à jour les historiques de l'année 2002 dans la feuille euribor_2002.xls…

Je suppose que dans un premier temps, il est nécessaire de sélectionner à partir du 02/01/02 jusqu'au 22/11/02, soit une sélection qui part du bas pour aller vers le haut…(pièce jointe)

Le filtre donne :
Selection.AutoFilter
Columns("A:A").Select
Selection.AutoFilter Field:=1, Criteria1:="02-janv-02"
ActiveCell.FormulaR1C1 = "1/2/2002"

Comment faut-il procéder pour remonter la sélection jusqu'au 22/11, avec End(xlUp) afin de pouvoir trier ensuite les deux colonnes par ordre croissant…

….afin d'effectuer une mise à jour avec http://pieniadz.hoga.pl/euribor.asp

… la banque de France est une page web que je n'ai pas encore réussi à mettre à jour automatiquement dans excel, notamment avec des reqêtes .iqy




???



d'avance merci pour votre aide

 

[albert]

... en réalité, les données bdf se mettent jour, mais sans respecter l'ordre des dates...

il y a moyen d'y remédier ???

Sub BdfEuribor()
'
' BdfEuribor Macro
' Macro enregistrée le 10/12/2002 par Packard Bell NEC Inc.
'

'
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.banque-france.fr/fr/actu/main.htm?menu2=menu%20m31.htm&page=ecofi/2c.htm"
Range("A1").Select

Application.WindowState = xlNormal
Sheets("Feuil2").Select
Range("D6").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False
End Sub


2ème macro :

Sub essai()
'
' essai Macro
' Macro enregistrée le 10/12/2002 par Packard Bell NEC Inc.
'

'
Range("G8").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False
Columns("B:E").ColumnWidth = 0
Columns("A:A").ColumnWidth = 0
End Sub


(d'avance merci)

 

[albert]

...cette fois l'actualisation est parfaite ...

le code suivant envoie la copie dans feuille 2, colonnes A:B


comment copier à la suite de colonnes E:F


Sub Tri()
'
' Tri Macro
' Macro enregistrée le 09/12/2002 par Packard Bell NEC Inc.
'

'
Sheets("Feuil1").Select
Range("D15:E32").Select
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub



.... voilà, avec tout çà, je voudrais avoir une actualisation journalière, ...automatisée et seul le site bdf donne une MAJ régulière...