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

Fermé
becker777 Messages postés 1 Date d'inscription mercredi 12 avril 2017 Statut Membre Dernière intervention 12 avril 2017 - Modifié le 12 avril 2017 à 18:17
thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 - 12 avril 2017 à 18:38
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!!!


A voir également:

1 réponse

thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681
Modifié le 12 avril 2017 à 18:38
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


 
0