Créer un fichier récap à partir d'un dossier Résolu/Fermé

Question

Bonjour, 

Après plusieurs essais de création de macro ( en vain!), un petit coup de main serait le bien venu.

J'ai 20 fichiers excel dans un même dossier, (même trame pour chaque fichier), et je souhaite copier les données de certaines cellules sur une feuille unique.

Seulement je butte sur différentes étapes :

Je parviens à créer les entête de colonne du fichier récap, ouvrir un seul classeur et copier les données dans l’ordre voulu et refermer le classeur source.
Seulement je ne parvient pas à créer un code relativement court pour le faire sur tous mes fichiers étant donné que je ne connais que les scripts de base... Dur dur!

L'idée serait :

1 : Entête colonnes  ( De A1 à AY1) OK
2 : Lancer une boucle sur tous les fichiers du répertoire  
3 : Copier les données 
4 : Coller les données dans l'ordre voulu sur la feuille récap. (cf table de correspondance en image, valable pour un fichier. comment faire pour mettre les données des fichiers suivants sur les lignes suivantes ?)

Merci par avance pour votre aide précieuse :)

Florian

KarlBi · Answer

Ah oui, toutes les données des fichiers sources sont en "Feuille2"!

yg_be · Answer

Montre ton code, cela nous inspirera pour le compléter.

KarlBi · Answer

Salut yg_be, 

voici mon code.

J'ai tenté de le raccourcir en évitant de copier cellule par cellule (je découvre le VBA   depuis le début de la semaine). Je rencontre donc un second problème (secondaire) qui est la copie de plage... 



 Sub CreationSynthèse()' Effacement Fauille'Cells.Delete' ecriture colonnes 'Range("A1") = "Mois"Range("B1") = "Année"Range("C1") = "Groupe Scolaire N°"Range("D1") = "Lot n°"Range("E1") = "Ecole"Range("F1") = "Type"Range("G1") = "Jour TAP"Range("H1") = "Nombre de Jour TAP"Range("I1") = "Effectif Total Enfant"Range("J1") = "Inscrits TAP"Range("K1") = "Nombre de groupe"Range("L1") = "Inscrits Garderie Matin"Range("M1") = "Inscrits Garderie Soir"Range("N1") = "Date TAP"Range("O1") = "Nb Anim Présents TAP"Range("P1") = "Nb Enfants Présents TAP"Range("Q1") = "Nombre de groupe réel TAP"Range("R1") = "Taux encadrement réel TAP"Range("S1") = "Semaine TRR du"Range("T1") = "Semaine TRR au"Range("U1") = "Nb anim TRR L"Range("V1") = "Nb anim TRR M"Range("W1") = "Nb anim TRR Me"Range("X1") = "Nb anim TRR J"Range("Y1") = "Nb anim TRR V"Range("Z1") = "Nb Enfant TRR L"Range("AA1") = "Nb Enfant TRR M"Range("AB1") = "Nb Enfant TRR Me"Range("AC1") = "Nb Enfant TRR J"Range("AD1") = "Nb Enfant TRR V"Range("AE1") = "Nb Anim Garderie MATIN L"Range("AF1") = "Nb Anim Garderie MATIN M"Range("AG1") = "Nb Anim Garderie MATIN Me"Range("AH1") = "Nb Anim Garderie MATIN J"Range("AI1") = "Nb Anim Garderie MATIN V"Range("AJ1") = "Nb Enfant Garderie MATIN L"Range("AK1") = "Nb Enfant Garderie MATIN M"Range("AL1") = "Nb Enfant Garderie MATIN Me"Range("AM1") = "Nb Enfant Garderie MATIN J"Range("AN1") = "Nb Enfant Garderie MATIN V"Range("AO1") = "Nb Anim Garderie SOIR L"Range("AP1") = "Nb Anim Garderie SOIR M"Range("AQ1") = "Nb Anim Garderie SOIR Me"Range("AR1") = "Nb Anim Garderie SOIR J"Range("AS1") = "Nb Anim Garderie SOIR V"Range("AT1") = "Nb Enfant Garderie SOIR L"Range("AU1") = "Nb Enfant Garderie SOIR M"Range("AV1") = "Nb Enfant Garderie SOIR Me"Range("AW1") = "Nb Enfant Garderie SOIR J"Range("AX1") = "Nb Enfant Garderie SOIR V"'----------------------------------------------------------------------------------''Recherche dans classeur 2.04'Workbooks.Open "C:\Users\Florian\Documents\Sauvegardes\Tap Marseille\FACTURATION 2016 - 2017\RECAP\ETATS SEP 2016 LOT 2. 04.xlsx"'Copie donnée LOT'Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("A2:A11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("P1")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("B2:B11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("U1")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("C2:c11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("R3")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("D2:d11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("P5")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("E2 : e6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B2")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("E7 : e11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("H2")'Copie données Inscrits ELEM / MATER'Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("F2:f6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B1")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("F7:F11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("H1")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("H2:h6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B4")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("H7:H11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("H4")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("I2:I6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B3")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("I7:I11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("H3")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("J2:j6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B5")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("J7:J11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("H5")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("K2:k6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B6")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("K7:K11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("H6")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("L2:l6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B8")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("L7:l11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("H8")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("M2:m6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B9")Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("M7:M11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("H9")'Copie données TAP ELEM'    'copie dates TAP'        Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("N2:N6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B13:B17")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("N7:N11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B13:B17")        'Copie Anims Présents'        Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("O2:O6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("D13:D17")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("o7:o11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("F13:F17")    'Copie Enfants Présents'        Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("P2:P6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("H13:H17")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("P7:P11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("J13:J17")       'Copie Nb groupe reel'        Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("Q2:Q6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("L13:L17")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("Q7:Q11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("N13:N17")'Copie Données TRR'    'Copie SEMAINE''DU'    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("S2") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("D19")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("S3") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("I19")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("S4") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("N19")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("S5") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("S19")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("S6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("X19")'AU'    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("T2") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("F19")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("T3") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("K19")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("T4") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("P19")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("T5") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("U19")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("T6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("Z19")'Copie Nb Anims'    'Par semaine'    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("U2:Y2") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B21:F21")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("U3:Y3") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("G21:K21")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("U4:Y4") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("L21:P21")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("U5:Y5") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("Q21:U21")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("U6:Y6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("V21:Z21")    'Copie Nb ENFANTS'     'Par semaine'         Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("Z2:AD2") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B22:F22")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("Z3:AD3") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("G22:K22")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("Z4:AD4") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("L22:P22")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("Z5:AD5") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("Q22:U22")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("Z6:AD6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("V22:Z22")      'Copie Nb ANIM GARDERIES MATIN'    '  ELEM Par semaine'        Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE2:AI2") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B23:F23")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE3:AI3") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("G23:K23")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE4:AI4") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("L23:P23")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE5:AI5") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("Q23:U23")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE6:AI6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("V23:Z23")    '  MATER Par semaine'        Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE7:AI7") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B25:F25")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE8:AI8") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("G25:K25")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE9:AI9") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("L25:P25")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE10:AI10") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("Q25:U25")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE11:AI11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("V25:Z25")'Copie Nb Enfants GARDERIES MATIN '       '  ELEM Par semaine'        Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ2:AN2") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B24:F24")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ3:AN3") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("G24:K24")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ4:AN4") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("L24:P24")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ5:AN5") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("Q24:U24")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ6:AN6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("V24:Z24")    '  MATER Par semaine'        Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ7:AN7") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B26:F26")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ8:AN8") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("G26:K26")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ9:AN9") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("L26:P26")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ10:AN10") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("Q26:U26")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ11:AN11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("V26:Z26")'Copie Nb ANIM GARDERIES SOIR'        '  ELEM Par semaine'        Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO2:AS2") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B27:F27")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO3:AS3") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("G27:K27")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO4:AS4") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("L27:P27")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO5:AS5") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("Q27:U27")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO6:AS6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("V27:Z27")    '  MATER Par semaine'        Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO7:AS7") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B29:F29")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO8:AS8") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("G29:K29")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO9:AS9") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("L29:P29")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO10:AS10") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("Q29:U29")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO11:AS11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("V29:Z29")'Copie Nb Enfants GARDERIES SOIR '       '  ELEM Par semaine'        Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT2:AX2") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B28:F28")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT3:AX3") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("G28:K28")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT4:AX4") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("L28:P28")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT5:AX5") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("Q28:U28")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT6:AX6") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("V28:Z28")    '  MATER Par semaine'        Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT7:AX7") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("B30:F30")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT8:AX8") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("G30:K30")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT9:AX9") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("L30:P30")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT10:AX10") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("Q30:U30")    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT11:AX11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("V30:Z30")Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Close'------------------------------------------------------------------------'End Sub

yg_be · Answer

Je vois que tu ouvres un fichier
Workbooks.Open "C:\Users\Florian\Documents\Sauvegardes\Tap Marseille\FACTURATION 2016 - 2017\RECAP\ETATS SEP 2016 LOT 2. 04.xlsx"

puis tu utilises ce fichier
Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("A2:A11") = Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Sheets("Feuille2").Range("P1")

puis tu fermes ce fichier
Workbooks("ETATS SEP 2016 LOT 2. 04.xlsx").Close

Pour faire cela sur tous les fichiers d'un dossier, je propose de faire plutôt ainsi :

' manipulation dans l'éditeur VBA : ajouter une référence vers "microsoft scripting runtime"
'nouvelles déclarations
Dim fso As Scripting.FileSystemObject
Dim dossier As Scripting.Folder
Dim fichier As Scripting.File
Dim wb As Workbook

'ouvrir le dossier
Set fso = New Scripting.FileSystemObject
Set dossier = fso.GetFolder("Nom du dossier")
For Each fichier In dossier.Files
    If Right(fichier.Name, 5) = ".xlsx" Or Right(fichier.Name, 4) = ".xls" Then
        Workbooks.Open fichier.Path 'ouvrons le fichier
        Set wb = Workbooks(fichier.Name)
	'utilisons le fichier
	' Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("A2:A11") = wb.Sheets("Feuille2").Range("P1")
        wb.Close 'fermons le fichier
    End If
Next
Voilà, j'attends tes questions.
En ce qui concerne les copies proprement dites :
Je suppose que tu veux copier certaines cellules de chaque ligne des fichiers ETATS après les lignes existantes du fichier RECAP.  Et que les positions respectives des colonnes de départ et d'arrivée sont toujours les mêmes.
Est-ce exact?  Si oui, c'est assez facile à programmer.  Chaque fichier a un seul onglet?
Dis-moi quoi, je te proposerai un code ensuite.

yg_be · Answer

Le code suivant (non testé) devrait recopier les 51 premières cellules des 11 premières lignes de chaque fichier.

Sub test4_karlbi()
Dim fso As Scripting.FileSystemObject
Dim dossier As Scripting.Folder
Dim fichier As Scripting.File
Dim wbsource As Workbook
Dim lsource As Long, ldest As Long, ncol As Long

'ouvrir le dossier
Set fso = New Scripting.FileSystemObject
Set dossier = fso.GetFolder("C:\Users\Florian\Documents\Sauvegardes\Tap Marseille\FACTURATION 2016 - 2017\RECAP")
ldest = 1
For Each fichier In dossier.Files
    If Right(fichier.Name, 5) = ".xlsx" Or Right(fichier.Name, 4) = ".xls" Then
        Workbooks.Open fichier.Path 'ouvrons le fichier
        Set wbsource = Workbooks(fichier.Name)
        For lsource = 1 To 11
            For ncol = 1 To 51
                Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Cells(ldest, ncol) = wbsource.Sheets("Feuille2").Cells(lsource, ncol)
            Next
            ldest = ldest + 1
        Next
        wbsource.Close
    End If
Next
End Sub
Cela donne quoi?  Tu veux sans doute ne pas copier les lignes sans changer les positions des cellules, on va s'y mettre ensuite.

yg_be · Answer

Je reviens ensuite sur ta partie de code qui ne fonctionne pas.
Ma proposition se traduit par les commentaires suivants dans le code :
Option Explicit
Sub test4_karlbi()
Dim fso As Scripting.FileSystemObject
Dim dossier As Scripting.Folder
Dim fichier As Scripting.File
Dim wbsource As Workbook
Dim ldest As Long
Dim lsource As Long, ncol As Long
Dim src As Worksheet, dst As Worksheet, tmp As Worksheet

Set fso = New Scripting.FileSystemObject
Set dossier = fso.GetFolder("C:\Users\Florian\Documents\Sauvegardes\Tap Marseille\FACTURATION 2016 - 2017\RECAP")
Set dst = ThisWorkbook.Sheets("Feuil1")
Set tmp = ThisWorkbook.Sheets("temp")
ldest = 1
For Each fichier In dossier.Files
    If Right(fichier.Name, 5) = ".xlsx" Or Right(fichier.Name, 4) = ".xls" Then
        Workbooks.Open fichier.Path 'ouvrons le fichier
        Set wbsource = Workbooks(fichier.Name)
        Set src = wbsource.Sheets("Feuille2")
        '  insérer juste apès ce commentaire le code "intelligent", de KarlBi,
        '   qui copie les données d'un fichier (workbook "src"), en respectant ta table de correspondance,
        '  vers la feuille TEMP (workbook "tmp")
        '
         '  tmp.Range("A2:A11") = src.Range("P1")
         ' ...
         ' ...
         'ensuite simple copie de tmp vers destination finale
        For lsource = 1 To 11
            For ncol = 1 To 51
                dst.Cells(ldest, ncol) = tmp.Cells(lsource, ncol)
            Next
            ldest = ldest + 1
        Next
        wbsource.Close
    End If
Next
End Sub
Tu peux changer comme tu veux les noms de feuilles dans les deux lignes :
Set dst = ThisWorkbook.Sheets("Feuil1")
Set tmp = ThisWorkbook.Sheets("temp")

yg_be · Answer

Au lieu de :
tmp.Range("AT2:AX2") = src.Range("B28:F28")
Essaie :
tmp.Range("AT2:AX2") = src.Range("B28:F28").Value

yg_be · Answer

Pas mieux avec
tmp.Range("U2:Y2") = src.Range("B21:F21").value ?

Créer un fichier récap à partir d'un dossier

8 réponses

Discussions similaires