Sub Mise_a_jour_onglets()
'----------------------------------------------------------------------------------------------------------
'LUNDI
' Déclaration du chemin des fichiers à lire, du nom du fichier et du nom de l'onglet à écrire
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "1 CAMUS LA RIBAMBELLE 1.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "LUNDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I2:I4", "B13", "I5:I6", "E14", "F7:I8", "M6", "H9:I10", "E15", "H11:I12", "E16", "D5:E6", "E10", "D21:G21", "I3", _
"Q2:Q4", "B19", "Q5:Q6", "E20", "N7:Q8", "M6", "P9:Q10", "E21", "P11:Q12", "E22", "L5:M6", "E10", "L21:O21", "I3", _
"Y2:Y4", "B25", "Y5:Y6", "E26", "V7:Y8", "M6", "X9:Y10", "E27", "X11:Y12", "E28", "T5:U6", "E10", "T21:W21", "I3", _
"AG2:AG4", "B31", "AG5:AG6", "E32", "AD7:AG8", "M6", "AF9:AG10", "E33", "AF11:AG12", "E34", "AB5:AC6", "E10", "AB21:AE21", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "2 DAUDET LA SALAMANDRE 2.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "LUNDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I49:I51", "B13", "I52:I53", "E14", "F54:I55", "M6", "H56:I57", "E15", "H58:I59", "E16", "D52:E53", "E10", "D68:G68", "I3", _
"Q49:Q51", "B19", "Q52:Q53", "E20", "N54:Q55", "M6", "P56:Q57", "E21", "P58:Q59", "E22", "L52:M53", "E10", "L68:O68", "I3", _
"Y49:Y51", "B25", "Y52:Y53", "E26", "V54:Y55", "M6", "X56:Y57", "E27", "X58:Y59", "E28", "T52:U53", "E10", "T68:W68", "I3", _
"AG49:AG51", "B31", "AG52:AG53", "E32", "AD54:AG55", "M6", "AF56:AG57", "E33", "AF58:AG59", "E34", "AB52:ACU53", "E10", "AB68:AE68", "I3") ' Mise à jour de l'onglet (macro dans ThisWorkbook )
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "3 JEAN MOULIN LES MARMOUZETS 3.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "LUNDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I97:I98", "B13", "I99:I100", "E14", "F101:I102", "M6", "H103:I104", "E15", "H105:I106", "E16", "D99:E100", "E10", "D115:G115", "I3", _
"Q97:Q98", "B19", "Q99:Q100", "E20", "N101:Q102", "M6", "P103:Q104", "E21", "P105:Q106", "E22", "L99:M100", "E10", "L115:O115", "I3", _
"Y97:Y98", "B25", "Y99:Y100", "E26", "V101:Y102", "M6", "X103:Y104", "E27", "X105:Y106", "E28", "T99:U100", "E10", "T115:W115", "I3", _
"AG97:AG98", "B31", "AG99:AG100", "E32", "AD101:AG102", "M6", "AF103:AG104", "E33", "AF105:AG106", "E34", "AB99:ACU100", "E10", "AB115:AE115", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "4 NOTRE DAME DU THIL LA BUISSONNIERE 4.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "LUNDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I143:I145", "B13", "I146:I147", "E14", "F148:I149", "M6", "H150:I151", "E15", "H152:I153", "E16", "D146:E147", "E10", "D162:G162", "I3", _
"Q143:Q145", "B19", "Q146:Q147", "E20", "N148:Q149", "M6", "P150:Q151", "E21", "P152:Q153", "E22", "L146:M147", "E10", "L162:O162", "I3", _
"Y143:Y145", "B25", "Y146:Y147", "E26", "V148:Y149", "M6", "X150:Y151", "E27", "X152:Y153", "E28", "T146:U147", "E10", "T162:W162", "I3", _
"AG143:AG145", "B31", "AG146:AG147", "E32", "AD148:AG149", "M6", "AF150:AG151", "E33", "AF152:AG153", "E34", "AB146:ACU147", "E10", "AB162:AE162", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "5 LA GRENOUILLERE CŒUR DE MOME 5.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "LUNDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I190:I192", "B13", "I193:I194", "E14", "F195:I196", "M6", "H197:I198", "E15", "H199:I200", "E16", "D193:E194", "E10", "D209:G209", "I3", _
"Q190:Q192", "B19", "Q193:Q194", "E20", "N195:Q196", "M6", "P197:Q198", "E21", "P199:Q200", "E22", "L193:M194", "E10", "L209:O209", "I3", _
"Y190:Y192", "B25", "Y193:Y194", "E26", "V195:Y196", "M6", "X197:Y198", "E27", "X199:Y200", "E28", "T193:U194", "E10", "T209:W209", "I3", _
"AG190:AG192", "B31", "AG193:AG194", "E32", "AD195:AG196", "M6", "AF197:AG198", "E33", "AF199:AG200", "E34", "AB193:ACU194", "E10", "AB209:AE209", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "6 SAINT LUCIEN CŒUR DE MOME 6.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "LUNDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I237:I239", "B13", "I240:I241", "E14", "F242:I243", "M6", "H244:I245", "E15", "H246:I247", "E16", "D240:E241", "E10", "D256:G256", "I3", _
"Q237:Q239", "B19", "Q240:Q241", "E20", "N242:Q243", "M6", "P244:Q245", "E21", "P246:Q247", "E22", "L240:M241", "E10", "L256:O256", "I3", _
"Y237:Y239", "B25", "Y240:Y241", "E26", "V242:Y243", "M6", "X244:Y245", "E27", "X246:Y247", "E28", "T240:U241", "E10", "T256:W256", "I3", _
"AG237:AG239", "B31", "AG240:AG241", "E32", "AD242:AG243", "M6", "AF244:AG245", "E33", "AF246:AG247", "E34", "AB240:ACU241", "E10", "AB256:AE256", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "7 LES ALOUETTES LE PETIT PRINCE 7.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "LUNDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I284:I286", "B13", "I287:I288", "E14", "F289:I290", "M6", "H291:I292", "E15", "H293:I294", "E16", "D287:E288", "E10", "D303:G303", "I3", _
"Q284:Q286", "B19", "Q287:Q288", "E20", "N289:Q290", "M6", "P291:Q292", "E21", "P293:Q294", "E22", "L287:M288", "E10", "L303:303", "I3", _
"Y284:Y286", "B25", "Y287:Y288", "E26", "V289:Y290", "M6", "X291:Y292", "E27", "X293:Y294", "E28", "T287:U288", "E10", "T303:W303", "I3", _
"AG284:AG286", "B31", "AG287:AG288", "E32", "AD289:AG290", "M6", "AF291:AG292", "E33", "AF293:AG294", "E34", "AB287:ACU288", "E10", "AB303:AE303", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "8 JULES FERRY ASTUCE 8.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "LUNDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I331:I333", "B13", "I334:I335", "E14", "F336:I337", "M6", "H338:I339", "E15", "H340:I341", "E16", "D334:E335", "E10", "D350:G350", "I3", _
"Q331:Q333", "B19", "Q334:Q335", "E20", "N336:Q337", "M6", "P338:Q339", "E21", "P340:Q341", "E22", "L334:M335", "E10", "L350:350", "I3", _
"Y331:Y333", "B25", "Y334:Y335", "E26", "V336:Y337", "M6", "X338:Y339", "E27", "X340:Y341", "E28", "T334:U335", "E10", "T350:W350", "I3", _
"AG331:AG333", "B31", "AG334:AG335", "E32", "AD336:AG337", "M6", "AF338:AG339", "E33", "AF340:AG341", "E34", "AB334:ACU335", "E10", "AB350:AE350", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "9 PRE MARTINET DEMAT 9.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "LUNDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I378:I380", "B13", "I381:I382", "E14", "F383:I384", "M6", "H385:I386", "E15", "H387:I388", "E16", "D381:E382", "E10", "D397:G397", "I3", _
"Q378:Q380", "B19", "Q381:Q382", "E20", "N383:Q384", "M6", "P385:Q386", "E21", "P387:Q388", "E22", "L381:M382", "E10", "L397:397", "I3", _
"Y378:Y380", "B25", "Y381:Y382", "E26", "V383:Y384", "M6", "X385:Y386", "E27", "X387:Y388", "E28", "T381:U382", "E10", "T397:W397", "I3", _
"AG378:AG380", "B31", "AG381:AG382", "E32", "AD383:AG384", "M6", "AF385:AG386", "E33", "AF387:AG388", "E34", "AB381:ACU382", "E10", "AB397:AE397", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "10 MARCEL PAGNOL LES CIGALES 10.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "LUNDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I425:I427", "B13", "I428:I429", "E14", "F430:I431", "M6", "H432:I433", "E15", "H434:I435", "E16", "D428:E429", "E10", "D444:G444", "I3", _
"Q425:Q427", "B19", "Q428:Q429", "E20", "N430:Q431", "M6", "P432:Q433", "E21", "P434:Q435", "E22", "L428:M429", "E10", "L444:444", "I3", _
"Y425:Y427", "B25", "Y428:Y429", "E26", "V430:Y431", "M6", "X432:Y433", "E27", "X434:Y435", "E28", "T428:U429", "E10", "T444:W444", "I3", _
"AG425:AG427", "B31", "AG428:AG429", "E32", "AD430:AG431", "M6", "AF432:AG433", "E33", "AF434:AG435", "E34", "AB428:ACU429", "E10", "AB444:AE444", "I3")
UpdateSheet
'----------------------------------------------------------------------------------------------------------
'MARDI
' Déclaration du chemin des fichiers à lire, du nom du fichier et du nom de l'onglet à écrire
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "1 CAMUS LA RIBAMBELLE 1.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "MARDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I2:I4", "F13", "I5:I6", "I14", "F7:I8", "M6", "H9:I10", "I15", "H11:I12", "I16", "D5:E6", "I10", "D21:G21", "I3", _
"Q2:Q4", "F19", "Q5:Q6", "I20", "N7:Q8", "M6", "P9:Q10", "I21", "P11:Q12", "I22", "L5:M6", "I10", "L21:O21", "I3", _
"Y2:Y4", "F25", "Y5:Y6", "I26", "V7:Y8", "M6", "X9:Y10", "I27", "X11:Y12", "I28", "T5:U6", "I10", "T21:W21", "I3", _
"AG2:AG4", "F31", "AG5:AG6", "I32", "AD7:AG8", "M6", "AF9:AG10", "I33", "AF11:AG12", "I34", "AB5:AC6", "I10", "AB21:AE21", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "2 DAUDET LA SALAMANDRE 2.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "MARDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I2:I4", "F13", "I5:I6", "I14", "F7:I8", "M6", "H9:I10", "I15", "H11:I12", "I16", "D5:E6", "I10", "D21:G21", "I3", _
"Q2:Q4", "F19", "Q5:Q6", "I20", "N7:Q8", "M6", "P9:Q10", "I21", "P11:Q12", "I22", "L5:M6", "I10", "L21:O21", "I3", _
"Y2:Y4", "F25", "Y5:Y6", "I26", "V7:Y8", "M6", "X9:Y10", "I27", "X11:Y12", "I28", "T5:U6", "I10", "T21:W21", "I3", _
"AG2:AG4", "F31", "AG5:AG6", "I32", "AD7:AG8", "M6", "AF9:AG10", "I33", "AF11:AG12", "I34", "AB5:AC6", "I10", "AB21:AE21", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "3 JEAN MOULIN LES MARMOUZETS 3.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "MARDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I2:I4", "F13", "I5:I6", "I14", "F7:I8", "M6", "H9:I10", "I15", "H11:I12", "I16", "D5:E6", "I10", "D21:G21", "I3", _
"Q2:Q4", "F19", "Q5:Q6", "I20", "N7:Q8", "M6", "P9:Q10", "I21", "P11:Q12", "I22", "L5:M6", "I10", "L21:O21", "I3", _
"Y2:Y4", "F25", "Y5:Y6", "I26", "V7:Y8", "M6", "X9:Y10", "I27", "X11:Y12", "I28", "T5:U6", "I10", "T21:W21", "I3", _
"AG2:AG4", "F31", "AG5:AG6", "I32", "AD7:AG8", "M6", "AF9:AG10", "I33", "AF11:AG12", "I34", "AB5:AC6", "I10", "AB21:AE21", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "4 NOTRE DAME DU THIL LA BUISSONNIERE 4.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "MARDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I2:I4", "F13", "I5:I6", "I14", "F7:I8", "M6", "H9:I10", "I15", "H11:I12", "I16", "D5:E6", "I10", "D21:G21", "I3", _
"Q2:Q4", "F19", "Q5:Q6", "I20", "N7:Q8", "M6", "P9:Q10", "I21", "P11:Q12", "I22", "L5:M6", "I10", "L21:O21", "I3", _
"Y2:Y4", "F25", "Y5:Y6", "I26", "V7:Y8", "M6", "X9:Y10", "I27", "X11:Y12", "I28", "T5:U6", "I10", "T21:W21", "I3", _
"AG2:AG4", "F31", "AG5:AG6", "I32", "AD7:AG8", "M6", "AF9:AG10", "I33", "AF11:AG12", "I34", "AB5:AC6", "I10", "AB21:AE21", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "5 LA GRENOUILLERE CŒUR DE MOME 5.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "MARDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I2:I4", "F13", "I5:I6", "I14", "F7:I8", "M6", "H9:I10", "I15", "H11:I12", "I16", "D5:E6", "I10", "D21:G21", "I3", _
"Q2:Q4", "F19", "Q5:Q6", "I20", "N7:Q8", "M6", "P9:Q10", "I21", "P11:Q12", "I22", "L5:M6", "I10", "L21:O21", "I3", _
"Y2:Y4", "F25", "Y5:Y6", "I26", "V7:Y8", "M6", "X9:Y10", "I27", "X11:Y12", "I28", "T5:U6", "I10", "T21:W21", "I3", _
"AG2:AG4", "F31", "AG5:AG6", "I32", "AD7:AG8", "M6", "AF9:AG10", "I33", "AF11:AG12", "I34", "AB5:AC6", "I10", "AB21:AE21", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "6 SAINT LUCIEN CŒUR DE MOME 6.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "MARDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I2:I4", "F13", "I5:I6", "I14", "F7:I8", "M6", "H9:I10", "I15", "H11:I12", "I16", "D5:E6", "I10", "D21:G21", "I3", _
"Q2:Q4", "F19", "Q5:Q6", "I20", "N7:Q8", "M6", "P9:Q10", "I21", "P11:Q12", "I22", "L5:M6", "I10", "L21:O21", "I3", _
"Y2:Y4", "F25", "Y5:Y6", "I26", "V7:Y8", "M6", "X9:Y10", "I27", "X11:Y12", "I28", "T5:U6", "I10", "T21:W21", "I3", _
"AG2:AG4", "F31", "AG5:AG6", "I32", "AD7:AG8", "M6", "AF9:AG10", "I33", "AF11:AG12", "I34", "AB5:AC6", "I10", "AB21:AE21", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "7 LES ALOUETTES LE PETIT PRINCE 7.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "MARDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I2:I4", "F13", "I5:I6", "I14", "F7:I8", "M6", "H9:I10", "I15", "H11:I12", "I16", "D5:E6", "I10", "D21:G21", "I3", _
"Q2:Q4", "F19", "Q5:Q6", "I20", "N7:Q8", "M6", "P9:Q10", "I21", "P11:Q12", "I22", "L5:M6", "I10", "L21:O21", "I3", _
"Y2:Y4", "F25", "Y5:Y6", "I26", "V7:Y8", "M6", "X9:Y10", "I27", "X11:Y12", "I28", "T5:U6", "I10", "T21:W21", "I3", _
"AG2:AG4", "F31", "AG5:AG6", "I32", "AD7:AG8", "M6", "AF9:AG10", "I33", "AF11:AG12", "I34", "AB5:AC6", "I10", "AB21:AE21", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "8 JULES FERRY ASTUCE 8.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "MARDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I2:I4", "F13", "I5:I6", "I14", "F7:I8", "M6", "H9:I10", "I15", "H11:I12", "I16", "D5:E6", "I10", "D21:G21", "I3", _
"Q2:Q4", "F19", "Q5:Q6", "I20", "N7:Q8", "M6", "P9:Q10", "I21", "P11:Q12", "I22", "L5:M6", "I10", "L21:O21", "I3", _
"Y2:Y4", "F25", "Y5:Y6", "I26", "V7:Y8", "M6", "X9:Y10", "I27", "X11:Y12", "I28", "T5:U6", "I10", "T21:W21", "I3", _
"AG2:AG4", "F31", "AG5:AG6", "I32", "AD7:AG8", "M6", "AF9:AG10", "I33", "AF11:AG12", "I34", "AB5:AC6", "I10", "AB21:AE21", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "9 PRE MARTINET DEMAT 9.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "MARDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I2:I4", "F13", "I5:I6", "I14", "F7:I8", "M6", "H9:I10", "I15", "H11:I12", "I16", "D5:E6", "I10", "D21:G21", "I3", _
"Q2:Q4", "F19", "Q5:Q6", "I20", "N7:Q8", "M6", "P9:Q10", "I21", "P11:Q12", "I22", "L5:M6", "I10", "L21:O21", "I3", _
"Y2:Y4", "F25", "Y5:Y6", "I26", "V7:Y8", "M6", "X9:Y10", "I27", "X11:Y12", "I28", "T5:U6", "I10", "T21:W21", "I3", _
"AG2:AG4", "F31", "AG5:AG6", "I32", "AD7:AG8", "M6", "AF9:AG10", "I33", "AF11:AG12", "I34", "AB5:AC6", "I10", "AB21:AE21", "I3")
Chemin = "C:\Users\PC_PAPA\Desktop\"
NomFichier = "10 MARCEL PAGNOL LES CIGALES 10.xlsm"
OngletLu = "PRINTEMPS"
NomOnglet = "MARDI"
' Déclaration tableau adresses. Ce tableau est organisé avec Plage à écrire, virgule, Plage à lire
Tablo = Array("I2:I4", "F13", "I5:I6", "I14", "F7:I8", "M6", "H9:I10", "I15", "H11:I12", "I16", "D5:E6", "I10", "D21:G21", "I3", _
"Q2:Q4", "F19", "Q5:Q6", "I20", "N7:Q8", "M6", "P9:Q10", "I21", "P11:Q12", "I22", "L5:M6", "I10", "L21:O21", "I3", _
"Y2:Y4", "F25", "Y5:Y6", "I26", "V7:Y8", "M6", "X9:Y10", "I27", "X11:Y12", "I28", "T5:U6", "I10", "T21:W21", "I3", _
"AG2:AG4", "F31", "AG5:AG6", "I32", "AD7:AG8", "M6", "AF9:AG10", "I33", "AF11:AG12", "I34", "AB5:AC6", "I10", "AB21:AE21", "I3")
'MERCEDI
UpdateSheet