Discussion :

[bilou_12]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[wilfried_42]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[rvtoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ceci fonctionne aussi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Adapte le nom de tes feuilles et classeurs.

[bilou_12]

Super! Le code de rvtoulon fonctionne!

Merci à tous les 2!