Copy/coller des valeur d'un classeur à un autre
becker777
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
thev Messages postés 1987 Date d'inscription Statut Membre Dernière intervention -
thev Messages postés 1987 Date d'inscription Statut Membre Dernière intervention -
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:
je galère :(
Merci infiniment par avance de votre aide et de vos connaissances éclairées!!!
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:
- Copy/coller des valeur d'un classeur à un autre
- Retrouver un copier-coller android - Guide
- Exact audio copy - Télécharger - Conversion & Extraction
- Super copy - Télécharger - Gestion de fichiers
- Style d'écriture a copier coller - Guide
- Copier coller un pdf - Guide
1 réponse
Bonsoir,
essayer ce code
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