Erreur définie par l'application ou pas l'objet ; copy

Bonjour,

Mon programme VBA est très simple, il copie des données d'un fichier pour les coller dans un autre.

Lorsque j'execute le programme avec cette ligne de code tout va bien :

 WBsource.Worksheets("Page1_1").Range("A4:B6").Copy Destination:=WBtarget.Worksheets("Page1_1").Range("A4:B6") 

Cependant, j'ai besoin que mes cellules soient variables. J'ai donc besoin d'utiliser cells(ligne, colonne) ... Et là, la ligne est problématique :

 WBsource.Worksheets("Page1_1").Range(Cells(4, 1), Cells(6, 2)).Copy Destination:=WBtarget.Worksheets("Page1_1").Range(Cells(4, 1), Cells(6, 2))
    

Merci de votre aide !

Alex

bonjour,

essaie ceci

    With WBtarget.Worksheets("Page1_1")
        WBsource.Worksheets("Page1_1").Range(Cells(4, 1), Cells(6, 2)).Copy Destination:=.Range(.Cells(4, 1), .Cells(6, 2))
    End With

Bonjour,

avec "cells" il faut TOUT préciser /

Dim wsS As Worksheet
Dim wsD As Worksheet
Set wsS = WBsource.Worksheets("Page1_1")
Set wsD = WBtarget.Worksheets("Page1_1")
wsS.Range(wsS.Cells(4, 1), wsS.Cells(6, 2)).Copy wsD.Range(wsD.Cells(4, 1), wsD.Cells(6, 2))

Super H2so4 ça marche parfaitement !

Minanse, merci pour ces infos ! Je n'avais effectivement jamais pensé à précisé de quel Cells il s'agissait.

Bon après-midi à vous !