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 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163
| Sub Copierdonnées()
'
'Je copie les données sur la feuil3
Sheets("Bd").ListObjects("Bd").Range.AutoFilter Field:=3, Criteria1:="PP"
ActiveSheet.ListObjects("Bd").Range.AutoFilter Field:=2, Criteria1:= _
"AH"
[Bd].Cells.SpecialCells(xlCellTypeVisible).Copy
Sheets("Feuil3").[B2].PasteSpecial Paste:=xlPasteValues
Sheets("Bd").ListObjects("Bd").Range.AutoFilter Field:=2, Criteria1:= _
"BJ"
[Bd].Cells.SpecialCells(xlCellTypeVisible).Copy
Sheets("Feuil3").[B15].PasteSpecial Paste:=xlPasteValues
Sheets("Bd").ListObjects("Bd").Range.AutoFilter Field:=2, Criteria1:= _
"BL"
[Bd].Cells.SpecialCells(xlCellTypeVisible).Copy
Sheets("Feuil3").[B28].PasteSpecial Paste:=xlPasteValues
Sheets("Bd").ListObjects("Bd").Range.AutoFilter Field:=2, Criteria1:= _
"BS"
[Bd].Cells.SpecialCells(xlCellTypeVisible).Copy
Sheets("Feuil3").[B41].PasteSpecial Paste:=xlPasteValues
Sheets("Bd").ListObjects("Bd").Range.AutoFilter Field:=2, Criteria1:= _
"GF"
[Bd].Cells.SpecialCells(xlCellTypeVisible).Copy
Sheets("Feuil3").[B54].PasteSpecial Paste:=xlPasteValues
Sheets("Bd").ListObjects("Bd").Range.AutoFilter Field:=2, Criteria1:= _
"GV"
[Bd].Cells.SpecialCells(xlCellTypeVisible).Copy
Sheets("Feuil3").[B67].PasteSpecial Paste:=xlPasteValues
Sheets("Bd").ListObjects("Bd").Range.AutoFilter Field:=2, Criteria1:= _
"GFa"
[Bd].Cells.SpecialCells(xlCellTypeVisible).Copy
Sheets("Feuil3").[B80].PasteSpecial Paste:=xlPasteValues
Sheets("Bd").ListObjects("Bd").Range.AutoFilter Field:=2, Criteria1:= _
"LV"
[Bd].Cells.SpecialCells(xlCellTypeVisible).Copy
Sheets("Feuil3").[B93].PasteSpecial Paste:=xlPasteValues
Sheets("Bd").ListObjects("Bd").Range.AutoFilter Field:=2, Criteria1:= _
"MC"
[Bd].Cells.SpecialCells(xlCellTypeVisible).Copy
Sheets("Feuil3").[B106].PasteSpecial Paste:=xlPasteValues
Sheets("Bd").ListObjects("Bd").Range.AutoFilter Field:=2, Criteria1:= _
"SK"
[Bd].Cells.SpecialCells(xlCellTypeVisible).Copy
Sheets("Feuil3").[B119].PasteSpecial Paste:=xlPasteValues
Sheets("Bd").ListObjects("Bd").Range.AutoFilter Field:=2, Criteria1:= _
"YA"
[Bd].Cells.SpecialCells(xlCellTypeVisible).Copy
Sheets("Feuil3").[B132].PasteSpecial Paste:=xlPasteValues
Sheets("Bd").ListObjects("Bd").Range.AutoFilter Field:=3
ActiveSheet.ListObjects("Bd").Range.AutoFilter Field:=2
[B4].Select
'Ouvrir les classeurs destinés à recevoir les données
'Workbooks (1)= déjà ouvert
'Ouverture de workbooks (2)
Workbooks.Open Filename:= _
"C:\...\fpp.xlsx"
'Ouverture de Workbooks (3)
Workbooks.Open Filename:= _
"C:\...\SsPP.xlsx"
'Les ranger en cascade horizontal
Windows.Arrange ArrangeStyle:=xlHorizontal
'je copie l'activité de chaque pionnier dans leur fiche individuelle
'ainsi que dans le suivi de leur objectif.
Workbooks(1).Worksheets("Feuil3").[E2:K13].Copy
Workbooks(2).Worksheets("Ha").[B6].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[G2:G13].Copy
Workbooks(3).Worksheets("APP").[B3].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[E15:K26].Copy
Workbooks(2).Worksheets("Je").[B6].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[G15:G26].Copy
Workbooks(3).Worksheets("APP").[C3].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[E28:K39].Copy
Workbooks(2).Worksheets("La").[B6].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[G28:G39].Copy
Workbooks(3).Worksheets("APP").[D3].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[E41:K52].Copy
Workbooks(2).Worksheets("Sy").[B6].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[G41:G52].Copy
Workbooks(3).Worksheets("APP").[E3].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[E54:K65].Copy
Workbooks(2).Worksheets("Fr").[B6].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[G54:G65].Copy
Workbooks(3).Worksheets("APP").[F3].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[E67:K78].Copy
Workbooks(2).Worksheets("Vi").[B6].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[G67:G78].Copy
Workbooks(3).Worksheets("APP").[G3].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[E80:K91].Copy
Workbooks(2).Worksheets("Fa").[B6].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[G80:G91].Copy
Workbooks(3).Worksheets("APP").[H3].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[E93:K104].Copy
Workbooks(2).Worksheets("Vir").[B6].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[G93:G104].Copy
Workbooks(3).Worksheets("APP").[I3].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[E106:K117].Copy
Workbooks(2).Worksheets("Ca").[B6].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[G106:G117].Copy
Workbooks(3).Worksheets("APP").[J3].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[E119:K130].Copy
Workbooks(2).Worksheets("Ka").[B6].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[G119:G130].Copy
Workbooks(3).Worksheets("APP").[K3].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[E132:K143].Copy
Workbooks(2).Worksheets("Ab").[B6].PasteSpecial Paste:=xlPasteValues
Workbooks(1).Worksheets("Feuil3").[G132:G143].Copy
Workbooks(3).Worksheets("APP").[L3].PasteSpecial Paste:=xlPasteValues
[D20].Select
Workbooks(1).Worksheets("Feuil3").Activate
[A:L].Select
Application.CutCopyMode = False
Selection.ClearContents
[A1].Select
Sheets("Bd").Select
End Sub |
Partager