Sujet Précédent Sujet Suivant

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 1779 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 21 mars 2023 - 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!!!


1 réponse

Réponse 1 / 1
thev Messages postés 1779 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 21 mars 2023 671
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