copie de cellules vers autre fichier

[montail]

bonjour
sur 2 fichiers j'aimerai que des cellules soit copié automatiquement dans le second fichier à la suite des cellules vides puis triées

merci beaucoup pour l'aide que vous pourrer m'apporter

 

[@+Thierry]

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...