Macro archivage de classeur à classeur

[salamanko]

Salut le forum, salut à tous,

J'ai trouvé sur le net la macro ci-dessous qui permet de copier une cellule (ex: C10) de la Feuil 1 et de la coller toujours dans la dernière cellule vide de la colonne A de la Feuil 2 .Idéal pour archiver une donnée.

Sub Feuil2Paste()
Col = "A"
With Sheets ("Feuil2")
DerLig = .Range(Col & "65536").End (xlUp) .Row +1
.Range(Col & DerLig ) = Sheets ("Feuil1").Range("C10")
End With
End Sub

Elle fonctionne à merveille si les deux feuilles sont dans le même classeur, mais mon projet est d'archiver des données dans un autre classeur que celui source et là, elle ne fonctionne pas.

Cette macro est elle appropriée à mon projet?

Merci pour aide qui sera forcement enrichissante.

 

[nat54]

Re : Macro archivage de classeur à classeur

Bonjour salamanko ,

Oui tu peux (enfin, je pense, j'suis pas une pro)
Il faut modifier cette ligne

DerLig = .Range(Col & "65536").End (xlUp) .Row +1

Sheets ("Feuil1").Range("C10")

en qqch comme ca

workbooks.open("C:/........")
Sheets ("Feuil1").Range("C10")