copier une plage de cellules d'un classeur fermé dans un classeur ouvert

[foufana]

Bonjour à tous,

Je voudrais copier à l'aide d'une macro, la plage de cellules "O31:O37" de l'onglet "EPARGNE" du classeur "S:\DCG\DCG_Commun\PNB\PNB 2009\baremes TCI\hitorique TCI 2009.xls" (fermé), dans un autre classeur ("classeur1.xls") à partir de la cellule "B3" de l'onglet "livrets".

J'espère que ce message est assez clair.
Merci d'avance pour votre aide!

 

[yves-melvine Kouadio]

With Workbooks("Classeur1.xls").Sheets("livrets").Range("B2:B8")
.FormulaR1C1 = "='S:\DCG\DCG_Commun\PNB\PNB 2009\baremes TCI\[hitorique TCI 2009.xls]EPARGNE'!R[29]C15"
.Value = .Value
End With

Bonsoir a vous
En regardant ce que vous avez mis vu que je rencontre la même erreur jai tapé la même code mais 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?

sachant que j'ai adapté le code a mon cas:

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

 

[yves-melvine Kouadio]

besoin de solution svp depuis maintenant 6 heures je beug sur mon programme

 

[job75]

Bonsoir yves-melvine Kouadio, bienvenue sur XLD,

besoin de solution svp depuis maintenant 6 heures je beug sur mon programme

Ce n'est sûrement pas du temps perdu si vous débutez en VBA.

Le code que vous indiquez ne copie et ne colle rien, il crée simplement une formule de liaison avec le fichier source.

Et comme la notation R1C1 est utilisée, au lieu de P344 il faut écrire R344C16

Ou alors au lieu de .FormulaR1C1 écrivez .Formula

A+

 

[yves-melvine Kouadio]

escusez moi vous aviez tout a fait raison et merci à vous