Well you could use a cell that says the last time the data was transfered,
and then add an event on activeworkbook.open that will transfer the data if
the system date is superior to the wirtten date in the cell.
For the comparition use 'vba.datediff("d",date1,Now)' where date1 is the
date where the data were last archived.