Extraer datos de otro libro abierto en otra pc

Agredeceria mucho su ayuda, tengo dos libros uno es almacen y otro compras, requiero copiar ciertos datos en el libro de almacen provenientes del libro de compras, si compras modifica o agrega algun valor en determinada celda entonces un CommandButton2 que tengo en el libro de almacen me los trae, pero funciona solo si abro desde el mismo excel en la misma maquina los dos libros pero si se habre uno en una maquina y otro en otra maquina, no funciona, de todas formas te envio los archivos a su correo, gracias de antemano.

Sub CopiarDatos()
ThisWorkbook. Activate
'desactiva la actualización de pantalla
Application.ScreenUpdating = False
Hoja1.Select
'DatosCompras1.Select
'base de datos
ChDir ThisWorkbook.Path & Application. PathSeparator
'selecciona el libro con los datos
'Windows("comprasCOMFO001.xlsm").Activate
Workbooks("comprasCOMFO001.xlsm").Activate >>> aqui da el error cuando se habre un libro en una pc y otro libro en otra pc
'selecciona los datos
Range("A9:D68").Select
'copia los datos
Selection. Copy
'selecciona el libro actual
'Windows("almacenALMFO001.xlsm").Activate
Workbooks("almacenALMFO001.xlsm").Activate
'selecciona la hoja donde se pegaran los datos
Hoja1.Select
Range("A9").Select
'pega los datos
Hoja1. Paste
Hoja1.Cells(1, 1).Select
'evita que se pregunte si se desea guardar en el portapapeles lo copiado
'al cerrar el libro con la base de datos
Application.CutCopyMode = False
'cierra el libro con la base de datos
'Workbooks("Base de datos.xls").Close False
'activa la actualización de pantalla
Application.ScreenUpdating = True

End Sub