Copier la valeur d'une cellule dans un autre classeur

Copier la valeur d'une cellule dans une autre classeur sans ouvrir le classeur d'origine

Bonsoir a vous
je rencontre un problème avec mon code svp

il se trouve qu'au lieu de copier la valeur se trouvant dans la cellule d'origine et de la coller dans la cellule de destination la valeur qui se trouve dans la cellule de destination est la suivante :
#NOM?

voici mon code:

Sub test()
With Workbooks("Classeur1.xlsm").Sheets("Feuil1").Range("A1")
.FormulaR1C1 = "='C:\Users\t_rokouadio\Documents\[Budget Opex DCIQ 2016.xlsx]SYNTHESE PAYS'!P344"
.Value = .Value
End With
End Sub

svp j'ai besoin de vous c'est pour on travail