copy/coller des valeur d'un classeur à un autre Fermé

Question

Bonjour, 
j'ai deux classeur  le premier s'appelle classeur1 et la deuxième s'appelle classeur2
Je n'arrive pas à copier / coller des lignes fusionés d'un table depuis la Feuil1(du classeur1) vers la Feuil2(du classeur 2)
j'aimerais bien savoir comment le faire
En fait j'ai essayé mais pas de résultat
voici mon code:

Sub test()
Dim finalrow As Long
Workbooks("Classeur1").Worksheets("Feuil1").Range("D1:D" & finalrow).Value = Workbooks("Classeur2").Worksheets("Feuil2").Range("A2:A" & finalrow).Value
End Sub

je galère :( 
Merci infiniment par avance de votre aide et de vos connaissances éclairées!!! 


Configuration: Windows / Chrome 57.0.2987.133

thev · Answer

Bonsoir,

essayer ce code
    Dim firstrow As Range, lastrow As Range, à_copier As Range    With Workbooks("Classeur2").Worksheets("Feuil1")        Set firstrow = .Range("A2")        Set lastrow = .Cells(.Rows.Count, "A").End(xlUp)        Set à_copier = Range(firstrow, lastrow)    End With    With Workbooks("Classeur1").Worksheets("Feuil1")        à_copier.Copy .Range("D1")    End With

Copy/coller des valeur d'un classeur à un autre

1 réponse

Discussions similaires