Macro: copier coller des lignes d'un tableau

Il y aura un tableau par processus donc 5 tableaux (d'après ta demande initiale) sur 5 feuilles différentes
Merci de le confirmer

Re

Rien ne t'empêche de copier-coller les 5 feuilles de tes 5 fichiers dans les 5 premières feuilles du fichier Recap (Clic droit sur l'onglet de la feuille du 1er classeur - Déplacer ou Copier - Dans le classeur : choisir le classeur Récap Avant la feuille : la feuille avec le tableau récapitilatif - Ne pas oublier de cocher la case Créer une copie)

Sinon
il faut que tous les classeurs soient ouverts (c'est plus complexe de lire dans des classeurs fermés) et modifier la macro ainsi :

En début de macro :
Dimensionner un tableau de 5 puis attribuer à chaque item du tableau le nom du classeur correspondant suivi de son extension :

Dim classeur(5)
classeur(1) = "AAA.xslx" ' Remplacer AAA par le nom du classeur
classeur(2) = "BBB.xslx"
'etc...

Dans le corps de la macro modifier les lignes pour indiquer le bon classeur avant le choix de feuille

ligneS = Workbooks(classeur(n)).Sheets(n).Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row

'dernière ligne remplie en colonne 2 de la 1ere feuille du classeur n
ligneS = Workbooks(classeur(n)).Sheets(1).Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row '
'MODIFIER LE 1 SI CE N'EST PAS LA 1° FEUILLE DU CLASSEUR SOURCE
' si derniere ligne remplie est sup à ligne 6
    If ligneS > 6 Then
        'Boucle sur les lignes de la feuille suivi de la 7° à la dernière
        For lg = 7 To ligneS
        ' incremente de 1 la ligne de Récap
        ld = ld + 1
        'copie les données de A à X
        Workbooks(classeur(n)).activate
        Sheets(1).Select
        Range("A" & lg & ":X" & lg).Select
        Selection.Copy
        ' colle les données valeurs uniquement
        Workbooks("mettre ici entre "" ""le nom du classeur récap avec son extension").Activate
        Sheets(1).Select 'MODIFIER LE 1 SI CE N'EST PAS LA 1° FEUILLE DU CLASSEUR RECAP
        Range("A" & ld).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        ' copie les données de la colonne AA
        Workbooks("mettre ici entre "" ""le nom du classeur récap avec son extension").Sheets(1).Range("AA" & ld) = Workbooks(classeur(n)).Sheets(1).Range("AA" & lg) ''MODIFIER LES 1 SI NECESSAIRE
        Next lg
    End If

Cdlmnt
Via

Bonjour

Plusieurs erreurs :
- le tableau n'était pas dimensionné et les items mis avant la macro au lieu d'être en début de macro
- les noms des classeurs dans les items ne correspondaient pas au réels (un espace après les --- alors qu'il n'y en pas pour les classeurs sources, extension xlsx au lieu de xlsm)
- le nom du classeur manquait pour la copie de la colonne AA

Version rectifiée qui fonctionne :
http://www.cjoint.com/c/EJtmp2kp0ml

Cdlmnt
Via