Copie avec utilisation de Destination

Bonjour,

Je cherche avec le bout de code suivant à copier une worksheets dans une autre worksheets d'un autre workbook. Je cherche à utiliser la fonction Destination en me calquant sur le modèle de l'aide excel mais cela ne fonctionne pas:

Code:

---

1 2	ActiveWorkbook.Sheets(nomFichierCurvesDate).Copy _ Destination:=Workbooks("RECAP_CURVE2").Worksheets("IMPORT_REUTERS").Range("A1")

---

Quelqu'un peut me filer un coup de main?

Merci d'avance! :ccool:

Bonjour

Si j'ai bonne memoire, la destination ne fonction que dans un même classeur, il faut couper l'ordre en 2

Code:

---

ActiveWorkbook.Sheets(nomFichierCurvesDate).Copy Workbooks("RECAP_CURVE2").Worksheets("IMPORT_REUTERS").Range("A1").paste

---

à vérifier, je n'ai pas excel sur ce poste

bonjour, il faut que le classeur actif soit bien celui d'ou tu veux copier la feuille ensuite essaye en rajoutant un .cells indiquant que tu veux copier toutes les cellules de la feuille comme ceci:

Code:

---

1 2	ActiveWorkbook.Sheets("Feuil1").Cells.Copy _ Destination:=Workbooks("Classeur test 2.xlsx").Sheets("Feuil1").Range("A1")

---

ceci fonctionne aussi:

Code:

---

ActiveWorkbook.Sheets("Feuil1").Cells.Copy Workbooks("Classeur test 2.xlsx").Sheets("Feuil1").Range("A1")

---

Adapte le nom de tes feuilles et classeurs.

Super! Le code de rvtoulon fonctionne!

Merci à tous les 2! :merci: