1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
Sub CopieToutesFeuilles()
'On copie toutes les feuilles dans unn nouveau classeur pour pouvoir l'enregistrer sans les macros.
Sheets(Array("CRM1", "1 A", "1 B", "2 A", "2 B", "3 A", "3 B", "4 A", _
"4 B", "5 A", "5 B", "6 A", "6 B", "7 A", "7 B", "8 A", "8 B", "9 A", "9 B", "10 A", "10 B" _
, "11 A", "11 B")).Select
Sheets("CRM1").Activate
Sheets(Array("12 A", "12 B", "13 A", "13 B", "14 A", "14 B", "15 A", "15 B", "16 A", _
"16 B", "17 A", "17 B", "18 A", "18 B", "19 A", "19 B", "20 A", "20 B", "21 A", "21 B", _
"22 A", "22 B", "23 A", "23 B", "24 A")).Select Replace:=False
Sheets(Array("24 B", "25 A", "25 B", "26 A", "26 B", "27 A", "27 B", "28 A", "28 B", _
"29 A", "29 B", "30 A", "30 B", "31 A", "31 B", "QFU_CRM", "02_20", "08_26exceptl", _
"06_24exceptl", "CONFIG", "MVTORLY", "QFU", "UTILCONF", _
"UTILISATION DES CONFIGURATIONS", "EVENEMENTS TECHNIQUES")).Select Replace:= _
False
Sheets(Array("DISPONIBILITE DES PISTES", "INCIDENT EN VOL", _
"INCIDENTS PLATE-FORME", "ECOULEMENT DU TRAFIC", "REMISES DE GAZ", "COMMENTAIRES")) _
.Select Replace:=False
Sheets(Array("CRM1", "1 A", "1 B", "2 A", "2 B", "3 A", "3 B", "4 A", _
"4 B", "5 A", "5 B", "6 A", "6 B", "7 A", "7 B", "8 A", "8 B", "9 A", "9 B", "10 A", "10 B" _
, "11 A", "11 B")).Select
Sheets("CRM1").Activate
Sheets(Array("12 A", "12 B", "13 A", "13 B", "14 A", "14 B", "15 A", "15 B", "16 A", _
"16 B", "17 A", "17 B", "18 A", "18 B", "19 A", "19 B", "20 A", "20 B", "21 A", "21 B", _
"22 A", "22 B", "23 A", "23 B", "24 A")).Select Replace:=False
Sheets(Array("24 B", "25 A", "25 B", "26 A", "26 B", "27 A", "27 B", "28 A", "28 B", _
"29 A", "29 B", "30 A", "30 B", "31 A", "31 B", "QFU_CRM", "02_20", "08_26exceptl", _
"06_24exceptl", "CONFIG", "MVTORLY", "QFU", "UTILCONF", _
"UTILISATION DES CONFIGURATIONS", "EVENEMENTS TECHNIQUES")).Select Replace:= _
False
Sheets(Array("DISPONIBILITE DES PISTES", "INCIDENT EN VOL", _
"INCIDENTS PLATE-FORME", "ECOULEMENT DU TRAFIC", "REMISES DE GAZ", "COMMENTAIRES")) _
.Select Replace:=False
Sheets(Array("CRM1", "1 A", "1 B", "2 A", "2 B", "3 A", "3 B", "4 A", _
"4 B", "5 A", "5 B", "6 A", "6 B", "7 A", "7 B", "8 A", "8 B", "9 A", "9 B", "10 A", "10 B" _
, "11 A", "11 B", "12 A", "12 B", "13 A", "13 B", "14 A", "14 B", "15 A", "15 B", "16 A", _
"16 B", "17 A", "17 B", "18 A", "18 B", "19 A", "19 B", "20 A", "20 B", "21 A", "21 B", _
"22 A", "22 B", "23 A", "23 B", "24 A", "24 B", "25 A", "25 B", "26 A", "26 B", "27 A", _
"27 B", "28 A", "28 B", "29 A", "29 B", "30 A", "30 B", "31 A", "31 B", "QFU_CRM", _
"02_20", "08_26exceptl", "06_24exceptl", "CONFIG", "MVTORLY", "QFU", "UTILCONF", _
"UTILISATION DES CONFIGURATIONS", "EVENEMENTS TECHNIQUES", _
"DISPONIBILITE DES PISTES", "INCIDENT EN VOL", "INCIDENTS PLATE-FORME", _
"ECOULEMENT DU TRAFIC", "REMISES DE GAZ", "COMMENTAIRES")).Copy
End Sub |
Partager