Ajouter des cellules les unes après les autres

[thowas]

Bonjour,
J'ai un fichier xls qui récupère toute les minutes des données externes via une requête sur le web.
J'aimerai récupérer ces données toutes les 3 minutes pour faire un historique (il s'agit d'une cotation boursière).

J'ai un peu bidouillé et j'ai fait:

Sub time()
Application.OnTime Now + TimeValue("00:03:00"), "Ajouter"
End Sub
Sub Ajouter()
Range("a" & Rows.Count).End(xlUp).Select
ActiveCell.Copy
ActiveCell.Offset(1, 0).PasteSpecial xlPasteFormats
ActiveCell.PasteSpecial
Call time
End Sub

Mais j'aimerai qu'il se fasse un peu plus silencieusement, par exemple sur une autre feuille, sans qu'il y ait besoin de faire un "Sheets("Cours").Select".
Et j'aimerai aussi que le code ne s'exécute qu'entre 15h30 et 22h.

Merci beaucoup

 

[Celeborn61]

Re : Ajouter des cellules les unes après les autres

Salut,

Sub time()
if time> ton début and time< ta fin then
Application.OnTime Now + TimeValue("00:03:00"), "Ajouter"
endif
End Sub

Sub Ajouter()
sheets("NomDeLOnglet").Range("a" & Rows.Count).End(xlUp).Copy
sheets("NomDeLOnglet").cells(LigneDeLInsertion,FinDeLInsertion).PasteSpecial xlPasteFormats
Call time
End Sub

Sans test, mais ça devrait marcher