Copier ligne from last feuil d'1 classeur vers un autre classeur

Bonjour à tous;

C'est encore le nouveau !!! Mais faut dire que depuis la dernière fois j'ai fait quelques efforts en programmation .

Today j'ai un souci: j'ai un peu plus de 25 classeurs de même nomenclature (avec à l'intérieur des feuilles(31) correspondant à chaque activité journalière), dont la dernière feuille RECAP BOUCL.withINDfait un récap par jour et par ligne. Dans un autre classeur appelé RECAP BOUCLAGE RETAILERS AGENCE JANVIER 2021 (composé de 31 feuilles aussi, correspondant à chaque activité journalière des 25 classeurs ... ; et rangé dans le même dossier que les classeurs précédents mais avec une extension différente [xlsx contre xlsb pour les 25 ) je veux faire ceci:

- sur la feuille ''JOUR 1" du classeur RECAP BOUCLAGE RETAILERS AGENCE JANVIER 2021, je veux reprendre toutes les informations de la ligne jour 1 de la feuille RECAP BOUCL.withIND de tous les 25 classeurs,

-sur la feuille ''JOUR 2" du classeur RECAP BOUCLAGE RETAILERS AGENCE JANVIER 2021, je veux reprendre toutes les informations de la ligne jour 2 de la feuille RECAP BOUCL.withIND de tous les 25 classeurs,

-... jusqu'à 31.

J'ai pu coder quelque chose sur VBA en rapport avec la seule feuille ''JOUR 1" du classeur RECAP BOUCLAGE RETAILERS AGENCE JANVIER 2021 et ça donne ça:

Sub CreationSynthese()

' Parcours de tous les fichiers

ChDir "C:\Users\S_ebekonan\Desktop\Dossier EBEN\ETATS 2021\ETATS MOOV MONEY\zzz NEW ETAT MOOV MONEY\JANVIER 2021"
ClasseurRegional = Dir("C:\Users\S_ebekonan\Desktop\Dossier EBEN\ETATS 2021\ETATS MOOV MONEY\zzz NEW ETAT MOOV MONEY\JANVIER 2021\*.xlsb")
While Len(ClasseurRegional) > 0
Workbooks.Open ClasseurRegional
AvantDerniereLigne = Workbooks("*.xlsb").Sheets("RECAPBOUCL.withIND").UsedRange.Rows.Count - 1

' uniquement la feuille recape bouclage withIND

Range("B5:S5").Copy
Workbooks("RECAP BOUCLAGE RETAILERS AGENCE JANVIER 2021.xlsx").Activate
DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1
Range("B" & ActiveSheet.UsedRange.Rows.Count + 1).Select
ActiveSheet.Paste
Range("A" & DebutNomFichier & ":A" & ActiveSheet.UsedRange.Rows.Count) = ClasseurRegional
Workbooks(ClasseurRegional).Close
ClasseurRegional = Dir
Wend
End Sub

La ligne jaune est une erreur dans le programme. Je demande votre aide pour la corriger et pour la modifier pour toutes les feuilles de mon classeur RECAP BOUCLAGE RETAILERS AGENCE JANVIER 2021 .

Pour ceux qui sont intéressés j'ai quelques petites macros de protection - "dé protection" de x feuilles dans un classeur, c'est ce que je peux offrir pour le moment

Merci d'avance.

ah... ci-joint la feuille RECAP BOUCL.withIND présente dans 25 classeurs et le classeur RECAP BOUCLAGE RETAILERS AGENCE JANVIER 2021

Oups... les fichiers ont été téléchargés dans le code; désolé

Bonjour Benbella, bonjour le forum,

J'ai à peine parcouru ton post. Je te propose de remplacer :

AvantDerniereLigne = Workbooks("*.xlsb").Sheets("RECAPBOUCL.withIND").UsedRange.Rows.Count - 1

par :

AvantDerniereLigne = ActiveWorkbook.Sheets("RECAPBOUCL.withIND").UsedRange.Rows.Count - 1

Bonsoir THAUTEME !!!

Merci de m'avoir répondu. j'ai bien essayé ta consigne; mais le problème persiste...