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

ebenezerkonan

XLDnaute Nouveau
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 en gras 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
 

Pièces jointes

  • EXEMPLE DERNIERE FEUILLE COMMUNE AU 25 CLASSEURS.xlsx
    13.3 KB · Affichages: 10
  • RECAP BOUCLAGE RETAILERS AGENCE JANVIER 2021 vide.xlsx
    125.5 KB · Affichages: 7

fanch55

XLDnaute Barbatruc
Salut,
VB:
While Len(ClasseurRegional) > 0
    Set Ws = Workbooks.Open(ClasseurRegional).Sheets("RECAP BOUCL.withIND")
    AvantDerniereLigne = Ws.UsedRange.Rows.Count - 1
    ' uniquement la feuille recape bouclage withIND
    Ws.Range("B5:S5").Copy
 

i20100_

XLDnaute Nouveau
Bonjour,

Pour transférer des données, tu n’as pas besoin de sélectionner celle-ci ni de les copier,
Voici un exemple:
VB:
Sub test()
Set wk1 = Workbooks("Classeur1")
Set wk2 = Workbooks("MaMusic.xlsm")
lig = 2
wk2.Sheets("Feuil23").Range("B" & lig & ":S" & lig) = wk1.Sheets("Feuil1").Range("B5:S5").Value
End Sub
 

ebenezerkonan

XLDnaute Nouveau
Bonjour,

Pour transférer des données, tu n’as pas besoin de sélectionner celle-ci ni de les copier,
Voici un exemple:
VB:
Sub test()
Set wk1 = Workbooks("Classeur1")
Set wk2 = Workbooks("MaMusic.xlsm")
lig = 2
wk2.Sheets("Feuil23").Range("B" & lig & ":S" & lig) = wk1.Sheets("Feuil1").Range("B5:S5").Value
End Sub
eh ben là j'en ai deux d'un coup!!! j'essaie tout et je vous reviens
 

Discussions similaires

Statistiques des forums

Discussions
311 708
Messages
2 081 750
Membres
101 812
dernier inscrit
trufu