![]() |
|
Forum
|
|
|
#2 (permalink) |
|
Guest
Messages: n/a
|
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... |
| ANNONCES | |
| Liens sociaux |
| Outils de la discussion | |
|
|