Sujet Précédent Sujet Suivant

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

Résolu/Fermé
KarlBi Messages postés 11 Date d'inscription mercredi 9 novembre 2016 Statut Membre Dernière intervention 13 novembre 2016 - 9 nov. 2016 à 20:21
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 - 13 nov. 2016 à 11:19
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

A voir également:

8 réponses

Réponse 1 / 8
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
11 nov. 2016 à 18:29
Montre ton code, cela nous inspirera pour le compléter.
0
Réponse 2 / 8
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
11 nov. 2016 à 21:59
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.
0
KarlBi Messages postés 11 Date d'inscription mercredi 9 novembre 2016 Statut Membre Dernière intervention 13 novembre 2016
12 nov. 2016 à 13:06
Bonjour yg_be,

Merci pour ta réponse.

Oui c'est exactement cela. même position pour les colonnes de départ, de même pour celles d'arrivée (toujours 11 lignes), mais décalé ( Fichier 1 : lignes 1 à 11, fichier 2 : lignes 12 à 23 etc...).

concernant ton code, je l'ai intégré (bonne place?) mais j'ai un message d'erreur de compilation "non défini par l'utilisateur". 


Sub CreationSynthèse()

' Effacement Feuille'

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"

'----------------------------------------------------------------------------------'
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("C:\Users\Florian\Documents\Sauvegardes\Tap Marseille\FACTURATION 2016 - 2017\RECAP")
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)


'Copie donnée LOT'

Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("A2:A11") = wb.Sheets("Feuille2").Range("P1") 

etc etc
0
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
12 nov. 2016 à 17:28
Tu as pu ajouter une référence vers "microsoft scripting runtime"? En utilisant le menu outils/références.
A quel endroit donne-t-il l'erreur de compilation (sur quelle ligne) ?
0
KarlBi Messages postés 11 Date d'inscription mercredi 9 novembre 2016 Statut Membre Dernière intervention 13 novembre 2016 > yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024
12 nov. 2016 à 18:05
Non impossible, l'onglet référence est grisé et inutilisable.

A quoi sert cette manip?

L'erreur est donc donnée sur la ligne "Dim fso As Scripting.FileSystemObject"
0
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
12 nov. 2016 à 18:48
il faut arrêter la macro pour pouvoir faire la manip (via le bouton "stop"), ou faire la manip avant de faire tourner la macro. cette manip permet au VBA d'utiliser des objets de type Scripting.FileSystemObject.
0
KarlBi Messages postés 11 Date d'inscription mercredi 9 novembre 2016 Statut Membre Dernière intervention 13 novembre 2016
12 nov. 2016 à 19:01
Yes, super ça fonctionne ! enfin il reste quelque corrections :

- Les lignes du fichier 1 sont effacées et remplacées par le fichier 2 et ainsi de suite.

- Il y a une erreur sur la copie de plage à plage (quel code utiliser ? ) 
 Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE2:AI2") = wb.Sheets("Feuille2").Range("B23:F23")
0
Réponse 3 / 8
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
12 nov. 2016 à 19:26
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.
0
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
12 nov. 2016 à 19:34
je viens de remarquer ta table de correspondance, j'y réfléchis...
0
KarlBi Messages postés 11 Date d'inscription mercredi 9 novembre 2016 Statut Membre Dernière intervention 13 novembre 2016
12 nov. 2016 à 20:00
j'ai un souci sur celle la ! où est-ce que j'intègre "l'adresse" des données à copier (fichier ETAT) ? Les cellules A1:AY11 sont les données du fichier de destination.

Je te mets mon code avant cette étape pour que l'on ai la même info de départ : 

 
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"

'----------------------------------------------------------------------------------'
Dim fso As Scripting.FileSystemObject
Dim dossier As Scripting.Folder
Dim fichier As Scripting.File
Dim wb As Workbook
Dim lsourc 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")

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)
    

'Copie donnée LOT'

Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("A2:A11") = wb.Sheets("Feuille2").Range("P1")
Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("B2:B11") = wb.Sheets("Feuille2").Range("U1")
Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("C2:c11") = wb.Sheets("Feuille2").Range("R3")
Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("D2:d11") = wb.Sheets("Feuille2").Range("P5")

Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("E2 : e6") = wb.Sheets("Feuille2").Range("B2")
Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("E7 : e11") = wb.Sheets("Feuille2").Range("H2")


'Copie données Inscrits ELEM / MATER'

Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("F2:f6") = wb.Sheets("Feuille2").Range("B1")
Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("F7:F11") = wb.Sheets("Feuille2").Range("H1")

Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("H2:h6") = wb.Sheets("Feuille2").Range("B4")
Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("H7:H11") = wb.Sheets("Feuille2").Range("H4")

Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("I2:I6") = wb.Sheets("Feuille2").Range("B3")
Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("I7:I11") = wb.Sheets("Feuille2").Range("H3")

Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("J2:j6") = wb.Sheets("Feuille2").Range("B5")
Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("J7:J11") = wb.Sheets("Feuille2").Range("H5")

Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("K2:k6") = wb.Sheets("Feuille2").Range("B6")
Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("K7:K11") = wb.Sheets("Feuille2").Range("H6")

Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("L2:l6") = wb.Sheets("Feuille2").Range("B8")
Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("L7:l11") = wb.Sheets("Feuille2").Range("H8")

Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("M2:m6") = wb.Sheets("Feuille2").Range("B9")
Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("M7:M11") = wb.Sheets("Feuille2").Range("H9")


'Copie données TAP ELEM'
    'copie dates TAP'
    
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("N2:N6") = wb.Sheets("Feuille2").Range("B13:B17")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("N7:N11") = wb.Sheets("Feuille2").Range("B13:B17")
    
    'Copie Anims Présents'
    
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("O2:O6") = wb.Sheets("Feuille2").Range("D13:D17")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("o7:o11") = wb.Sheets("Feuille2").Range("F13:F17")

    'Copie Enfants Présents'
    
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("P2:P6") = wb.Sheets("Feuille2").Range("H13:H17")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("P7:P11") = wb.Sheets("Feuille2").Range("J13:J17")
   
    'Copie Nb groupe reel'
    
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("Q2:Q6") = wb.Sheets("Feuille2").Range("L13:L17")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("Q7:Q11") = wb.Sheets("Feuille2").Range("N13:N17")

'Copie Données TRR'

    'Copie SEMAINE'
'DU'
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("S2") = wb.Sheets("Feuille2").Range("D19")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("S3") = wb.Sheets("Feuille2").Range("I19")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("S4") = wb.Sheets("Feuille2").Range("N19")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("S5") = wb.Sheets("Feuille2").Range("S19")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("S6") = wb.Sheets("Feuille2").Range("X19")
'AU'
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("T2") = wb.Sheets("Feuille2").Range("F19")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("T3") = wb.Sheets("Feuille2").Range("K19")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("T4") = wb.Sheets("Feuille2").Range("P19")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("T5") = wb.Sheets("Feuille2").Range("U19")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("T6") = wb.Sheets("Feuille2").Range("Z19")


'Copie Nb Anims'
    'Par semaine'
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("U2:Y2") = wb.Sheets("Feuille2").Range("B21:F21")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("U3:Y3") = wb.Sheets("Feuille2").Range("G21:K21")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("U4:Y4") = wb.Sheets("Feuille2").Range("L21:P21")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("U5:Y5") = wb.Sheets("Feuille2").Range("Q21:U21")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("U6:Y6") = wb.Sheets("Feuille2").Range("V21:Z21")
    
'Copie Nb ENFANTS'
     'Par semaine'
     
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("Z2:AD2") = wb.Sheets("Feuille2").Range("B22:F22")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("Z3:AD3") = wb.Sheets("Feuille2").Range("G22:K22")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("Z4:AD4") = wb.Sheets("Feuille2").Range("L22:P22")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("Z5:AD5") = wb.Sheets("Feuille2").Range("Q22:U22")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("Z6:AD6") = wb.Sheets("Feuille2").Range("V22:Z22")
   
   
'Copie Nb ANIM GARDERIES MATIN'
    '  ELEM Par semaine'
    
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE2:AI2") = wb.Sheets("Feuille2").Range("B23:F23")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE3:AI3") = wb.Sheets("Feuille2").Range("G23:K23")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE4:AI4") = wb.Sheets("Feuille2").Range("L23:P23")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE5:AI5") = wb.Sheets("Feuille2").Range("Q23:U23")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE6:AI6") = wb.Sheets("Feuille2").Range("V23:Z23")

    '  MATER Par semaine'
    
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE7:AI7") = wb.Sheets("Feuille2").Range("B25:F25")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE8:AI8") = wb.Sheets("Feuille2").Range("G25:K25")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE9:AI9") = wb.Sheets("Feuille2").Range("L25:P25")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE10:AI10") = wb.Sheets("Feuille2").Range("Q25:U25")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AE11:AI11") = wb.Sheets("Feuille2").Range("V25:Z25")

'Copie Nb Enfants GARDERIES MATIN '

       '  ELEM Par semaine'
    
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ2:AN2") = wb.Sheets("Feuille2").Range("B24:F24")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ3:AN3") = wb.Sheets("Feuille2").Range("G24:K24")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ4:AN4") = wb.Sheets("Feuille2").Range("L24:P24")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ5:AN5") = wb.Sheets("Feuille2").Range("Q24:U24")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ6:AN6") = wb.Sheets("Feuille2").Range("V24:Z24")

    '  MATER Par semaine'
    
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ7:AN7") = wb.Sheets("Feuille2").Range("B26:F26")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ8:AN8") = wb.Sheets("Feuille2").Range("G26:K26")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ9:AN9") = wb.Sheets("Feuille2").Range("L26:P26")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ10:AN10") = wb.Sheets("Feuille2").Range("Q26:U26")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AJ11:AN11") = wb.Sheets("Feuille2").Range("V26:Z26")


'Copie Nb ANIM GARDERIES SOIR'
    
    '  ELEM Par semaine'
    
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO2:AS2") = wb.Sheets("Feuille2").Range("B27:F27")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO3:AS3") = wb.Sheets("Feuille2").Range("G27:K27")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO4:AS4") = wb.Sheets("Feuille2").Range("L27:P27")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO5:AS5") = wb.Sheets("Feuille2").Range("Q27:U27")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO6:AS6") = wb.Sheets("Feuille2").Range("V27:Z27")

    '  MATER Par semaine'
    
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO7:AS7") = wb.Sheets("Feuille2").Range("B29:F29")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO8:AS8") = wb.Sheets("Feuille2").Range("G29:K29")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO9:AS9") = wb.Sheets("Feuille2").Range("L29:P29")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO10:AS10") = wb.Sheets("Feuille2").Range("Q29:U29")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AO11:AS11") = wb.Sheets("Feuille2").Range("V29:Z29")

'Copie Nb Enfants GARDERIES SOIR '

       '  ELEM Par semaine'
    
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT2:AX2") = wb.Sheets("Feuille2").Range("B28:F28")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT3:AX3") = wb.Sheets("Feuille2").Range("G28:K28")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT4:AX4") = wb.Sheets("Feuille2").Range("L28:P28")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT5:AX5") = wb.Sheets("Feuille2").Range("Q28:U28")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT6:AX6") = wb.Sheets("Feuille2").Range("V28:Z28")

    '  MATER Par semaine'
    
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT7:AX7") = wb.Sheets("Feuille2").Range("B30:F30")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT8:AX8") = wb.Sheets("Feuille2").Range("G30:K30")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT9:AX9") = wb.Sheets("Feuille2").Range("L30:P30")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT10:AX10") = wb.Sheets("Feuille2").Range("Q30:U30")
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT11:AX11") = wb.Sheets("Feuille2").Range("V30:Z30")



wb.Close

End If
Next



'------------------------------------------------------------------------'


'------------------------------------------------------------------------'


End Sub


0
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476 > KarlBi Messages postés 11 Date d'inscription mercredi 9 novembre 2016 Statut Membre Dernière intervention 13 novembre 2016
12 nov. 2016 à 20:31
Je propose de faire ainsi :
- on va utiliser deux feuilles dans le fichier RECAP, disons une feuille "temp" et une "finale" (peu importent les noms, cela peut être Feuil1 et Feuil2, ou le contraire, ou autre chose, tu peux choisir
- toi, tu fournis "ton" code "intelligent" qui copie les données d'un fichier, en respectant ta table de correspondance, vers la feuille TEMP (je pense que tu as déjà écrit tout cela)
- ensuite on utilise "mon" code, qui copie de TEMP vers FINALE, bêtement, le rectangle de 11 lignes * 51 colonnes
.
Qu'en penses-tu? Dis-moi si j'ai expliqué clairement ou pas, et si tu es d'accord.
0
KarlBi Messages postés 11 Date d'inscription mercredi 9 novembre 2016 Statut Membre Dernière intervention 13 novembre 2016
12 nov. 2016 à 21:29
Yes très bien expliqué! tout est plus clair maintenant. Oui c'est une bonne idée.

Il faudra juste corriger dans mon code cette partie du code qui ne fonctionne pas 
    Workbooks("RECAP MACRO.xlsm").Sheets("Feuil1").Range("AT2:AX2") = wb.Sheets("Feuille2").Range("B28:F28")


Concernant le transfert de la table TEMP à FINAL c'est le code proposé précédemment?
0
Réponse 4 / 8
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
12 nov. 2016 à 21:55
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")
0
KarlBi Messages postés 11 Date d'inscription mercredi 9 novembre 2016 Statut Membre Dernière intervention 13 novembre 2016
12 nov. 2016 à 22:36
C'est bon ça fonctionne : la "feuil1" récupère les données décalées de 11 lignes et "temp" est remplacée a chaque boucle! Merci :)

Reste le souci de copie de plage to plage dans mon code.

vraiment merci de ton aide précieuse 


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"

'----------------------------------------------------------------------------------'
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")
        
        
'Copie donnée LOT'

tmp.Range("A2:A11") = src.Range("P1")
tmp.Range("B2:B11") = src.Range("U1")
tmp.Range("C2:c11") = src.Range("R3")
tmp.Range("D2:d11") = src.Range("P5")

tmp.Range("E2 : e6") = src.Range("B2")
tmp.Range("E7 : e11") = src.Range("H2")


'Copie données Inscrits ELEM / MATER'

tmp.Range("F2:f6") = src.Range("B1")
tmp.Range("F7:F11") = src.Range("H1")

tmp.Range("H2:h6") = src.Range("B4")
tmp.Range("H7:H11") = src.Range("H4")

tmp.Range("I2:I6") = src.Range("B3")
tmp.Range("I7:I11") = src.Range("H3")

tmp.Range("J2:j6") = src.Range("B5")
tmp.Range("J7:J11") = src.Range("H5")

tmp.Range("K2:k6") = src.Range("B6")
tmp.Range("K7:K11") = src.Range("H6")

tmp.Range("L2:l6") = src.Range("B8")
tmp.Range("L7:l11") = src.Range("H8")

tmp.Range("M2:m6") = src.Range("B9")
tmp.Range("M7:M11") = src.Range("H9")


'Copie données TAP ELEM'
    'copie dates TAP'
    
    tmp.Range("N2:N6") = src.Range("B13:B17")
    tmp.Range("N7:N11") = src.Range("B13:B17")
    
    'Copie Anims Présents'
    
    tmp.Range("O2:O6") = src.Range("D13:D17")
    tmp.Range("o7:o11") = src.Range("F13:F17")

    'Copie Enfants Présents'
    
    tmp.Range("P2:P6") = src.Range("H13:H17")
    tmp.Range("P7:P11") = src.Range("J13:J17")
   
    'Copie Nb groupe reel'
    
    tmp.Range("Q2:Q6") = src.Range("L13:L17")
    tmp.Range("Q7:Q11") = src.Range("N13:N17")

    'Copie Données TRR'

    'Copie SEMAINE'
'DU'
  tmp.Range("S2") = src.Range("D19")
  tmp.Range("S3") = src.Range("I19")
  tmp.Range("S4") = src.Range("N19")
  tmp.Range("S5") = src.Range("S19")
  tmp.Range("S6") = src.Range("X19")
'AU'
  tmp.Range("T2") = src.Range("F19")
  tmp.Range("T3") = src.Range("K19")
  tmp.Range("T4") = src.Range("P19")
  tmp.Range("T5") = src.Range("U19")
  tmp.Range("T6") = src.Range("Z19")


'Copie Nb Anims'
    'Par semaine'
  tmp.Range("U2:Y2") = src.Range("B21:F21")
  tmp.Range("U3:Y3") = src.Range("G21:K21")
  tmp.Range("U4:Y4") = src.Range("L21:P21")
  tmp.Range("U5:Y5") = src.Range("Q21:U21")
  tmp.Range("U6:Y6") = src.Range("V21:Z21")
    
'Copie Nb ENFANTS'
     'Par semaine'
     
  tmp.Range("Z2:AD2") = src.Range("B22:F22")
  tmp.Range("Z3:AD3") = src.Range("G22:K22")
  tmp.Range("Z4:AD4") = src.Range("L22:P22")
  tmp.Range("Z5:AD5") = src.Range("Q22:U22")
  tmp.Range("Z6:AD6") = src.Range("V22:Z22")
   
   
'Copie Nb ANIM GARDERIES MATIN'
    '  ELEM Par semaine'
    
  tmp.Range("AE2:AI2") = src.Range("B23:F23")
  tmp.Range("AE3:AI3") = src.Range("G23:K23")
  tmp.Range("AE4:AI4") = src.Range("L23:P23")
  tmp.Range("AE5:AI5") = src.Range("Q23:U23")
  tmp.Range("AE6:AI6") = src.Range("V23:Z23")

    '  MATER Par semaine'
    
  tmp.Range("AE7:AI7") = src.Range("B25:F25")
  tmp.Range("AE8:AI8") = src.Range("G25:K25")
  tmp.Range("AE9:AI9") = src.Range("L25:P25")
  tmp.Range("AE10:AI10") = src.Range("Q25:U25")
  tmp.Range("AE11:AI11") = src.Range("V25:Z25")

'Copie Nb Enfants GARDERIES MATIN '

       '  ELEM Par semaine'
    
  tmp.Range("AJ2:AN2") = src.Range("B24:F24")
  tmp.Range("AJ3:AN3") = src.Range("G24:K24")
  tmp.Range("AJ4:AN4") = src.Range("L24:P24")
  tmp.Range("AJ5:AN5") = src.Range("Q24:U24")
  tmp.Range("AJ6:AN6") = src.Range("V24:Z24")

    '  MATER Par semaine'
    
  tmp.Range("AJ7:AN7") = src.Range("B26:F26")
  tmp.Range("AJ8:AN8") = src.Range("G26:K26")
  tmp.Range("AJ9:AN9") = src.Range("L26:P26")
  tmp.Range("AJ10:AN10") = src.Range("Q26:U26")
  tmp.Range("AJ11:AN11") = src.Range("V26:Z26")


'Copie Nb ANIM GARDERIES SOIR'
    
    '  ELEM Par semaine'
    
  tmp.Range("AO2:AS2") = src.Range("B27:F27")
  tmp.Range("AO3:AS3") = src.Range("G27:K27")
  tmp.Range("AO4:AS4") = src.Range("L27:P27")
  tmp.Range("AO5:AS5") = src.Range("Q27:U27")
  tmp.Range("AO6:AS6") = src.Range("V27:Z27")

    '  MATER Par semaine'
    
  tmp.Range("AO7:AS7") = src.Range("B29:F29")
  tmp.Range("AO8:AS8") = src.Range("G29:K29")
  tmp.Range("AO9:AS9") = src.Range("L29:P29")
  tmp.Range("AO10:AS10") = src.Range("Q29:U29")
  tmp.Range("AO11:AS11") = src.Range("V29:Z29")

'Copie Nb Enfants GARDERIES SOIR '

       '  ELEM Par semaine'
    
  tmp.Range("AT2:AX2") = src.Range("B28:F28")
  tmp.Range("AT3:AX3") = src.Range("G28:K28")
  tmp.Range("AT4:AX4") = src.Range("L28:P28")
  tmp.Range("AT5:AX5") = src.Range("Q28:U28")
  tmp.Range("AT6:AX6") = src.Range("V28:Z28")

    '  MATER Par semaine'
    
  tmp.Range("AT7:AX7") = src.Range("B30:F30")
  tmp.Range("AT8:AX8") = src.Range("G30:K30")
  tmp.Range("AT9:AX9") = src.Range("L30:P30")
  tmp.Range("AT10:AX10") = src.Range("Q30:U30")
  tmp.Range("AT11:AX11") = src.Range("V30:Z30")

'ensuite simple copie de tmp vers destination finale'
    tmp.Range("A2:A11") = src.Range("P1")
    
 For lsource = 2 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

0
KarlBi Messages postés 11 Date d'inscription mercredi 9 novembre 2016 Statut Membre Dernière intervention 13 novembre 2016
12 nov. 2016 à 22:37
c'est à partir de 'Copie données TRR' paragraphe 'Copie Nb Anims'
'Par semaine'
tmp.Range("U2:Y2") = src.Range("B21:F21")
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
12 nov. 2016 à 22:05
Au lieu de : 
tmp.Range("AT2:AX2") = src.Range("B28:F28")

Essaie : 
tmp.Range("AT2:AX2") = src.Range("B28:F28").Value
0
Réponse 6 / 8
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
13 nov. 2016 à 00:12
Pas mieux avec 
tmp.Range("U2:Y2") = src.Range("B21:F21").value
?
0
KarlBi Messages postés 11 Date d'inscription mercredi 9 novembre 2016 Statut Membre Dernière intervention 13 novembre 2016
13 nov. 2016 à 03:52
Yes c'est bon! je vais faire quelques petits contrôles demain matin pour voir si tout est en ordre mais tout à l'air de fonctionner!

Pour me former sur ce genre de choses, tu as des tips à me donner, sites internet etc ?

Merci encore pour ton aide, tu m'as vraiment sorti d'une belle galère!
0
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
13 nov. 2016 à 11:19
Content que tu ai pu progresser.
Pour te former, je n'ai pas vraiment de suggestion. Peut-être ne pas te contenter que cela fonctionne, et maîtriser comment et pourquoi cela fonctionne.
Tu maîtrises tout ce qui est fait dans le code final? Sinon, c'est une belle opportunité d'apprendre, en cherchant sur Internet ce qui se cache derrière les différentes techniques utilisées.
0
Réponse 7 / 8
KarlBi Messages postés 11 Date d'inscription mercredi 9 novembre 2016 Statut Membre Dernière intervention 13 novembre 2016
9 nov. 2016 à 20:38
Ah oui, toutes les données des fichiers sources sont en "Feuille2"!
-1
Réponse 8 / 8
KarlBi Messages postés 11 Date d'inscription mercredi 9 novembre 2016 Statut Membre Dernière intervention 13 novembre 2016
11 nov. 2016 à 21:03
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
-1

Discussions similaires

Annuaire portable gratuit à partir d'un nom
dani26 -
Authority -

9 réponses
comment donner les droits sur fichier partage
ch'ti du 57 -
fil1958 -

2 réponses
Chemin Logo du site de la Cité de l'espace
Keiios -
blux -

11 réponses
Extraire le contenu de plusieurs fichiers
politicus -
Syl_tls1 -

11 réponses