Salut Montail, le Forum
Tu manques sérieusement de détails pour qu'on puisse te répondre !
Enfin juste pour le Topo de base :
Option Explicit
Sub CopieEntre2Classeurs()
Dim WB1 As Workbook, WB2 As Workbook
Dim L As Integer
Set WB1 = Workbooks("ClasseurSource.XLS")
Set WB2 = ThisWorkbook
With WB2.Sheets("Feuil1")
L = .Range("A65536").End(xlUp).Row + 1
.Range("A" & L & ":B" & L) = WB1.Sheets("Feuil1").Range("A1:B1").Value
End With
End Sub
NB pour celà fonctionne, il faut que tu aies deux classeurs ouverts, celui où tu mettras ce code et un autre qui se nommera "ClasseurSource.XLS" (ou change le nom dans le code, of course)
Mais disons qu'il faudrait en savoir PLUS !!
Bonne Soirée
@+Thierry
PS, pour ceux/celles qui seraient interressé(e)s, le "Value" qui est pourtant considéré comme étant la propriété par défaut et sous-entendu d'un objet range est cependant obligatoire dans ce cas de figure... Sinon çà ne reporte rien...