Copie de X classeurs dans un seul.

[Quaisako]

Bonjour le Forum,

J'espère que vous êtes en forme :

J'ai 12 classeurs contenant chacun 1 feuille.
Toutes les feuilles sont identiques.
Je souhaiterai récupérer les données des colonnes (Nom, Prénom) A et B de chaque classeur dans les colonnes (Nom, Prénom) A et B d'un 13ième classeur.

Ce code me permet de le faire pour 1 classeur.
Sub Copie()

Worksheets("Feuil1").Activate
Columns("A:B").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Selection.Copy
Range("A1").Select
ChDir "C:\WINDOWS\Bureau"
Workbooks.Open Filename:="C:\WINDOWS\Bureau\Réception.xls"
ActiveSheet.Paste
Range("A1").Select
Windows("Réception.XLS").Activate
Application.CutCopyMode = False
Range("A1").Select
Windows("Réception.XLS").Close

End Sub
J'ai essayé de faire la même chose avec un second classeur qui, lors du collage trouve la première ligne vide de la colonne A du 13ième classeur, mais je me plante.

Merci d'avance pour vos idées voire vos solutions.

Quaisako

 

[@+Thierry]

Salut Quaisako et le forum

Ben c'est toujours la même macro pour identifier la même ligne vide... Celle que je t'ai montré dans les UserForm à multe-reprises !

dans ton Windows("Reception.xls") (qui reçoit les données donc)
tu identifies la dernière cellule vide
L = Range("A65536").end(xlup).row + 1
Range("A" & L).Select
Activesheet.Paste

Bon Aprèm
@+Thierry