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
|
Sub Complete()
' Macro de sauvegarde de tous les fichiers des controleurs. Pour les congés
' Chaque nom de fichier ouvert correspond au trigramme d'un controleur
' Ouverture du fichier ou recuperer les informations
' Partie de récuperation pour le controleur "CASSAGNE"
Workbooks.Open Filename:= _
"C:\Documents and Settings\vsuppa\Bureau\congé\CAS\CAS.xls"
' Selection de la feuille ou recuperer les informations
' Selection des lignes à sauvegarder
' Utilisation de la fonction copié
Sheets("Janvier à Août 2008").Range("B7:DS8").Copy
' retour sur le document principal
Windows("Congés ICNA 2008 à 2009.xls").Activate
' Selection de la feuille ou recuperer les informations
Sheets("Janvier à Août 2008").Activate
' Selection des lignes à sauvegarder
Range("B7").Select
' Copie des données par un collage spécial
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
' meme demarche pour les autres feuillés
Windows("CAS.xls").Activate
Sheets("Sept à déc 2008").Range("B7:DS8").Copy
Windows("Congés ICNA 2008 à 2009.xls").Activate
Sheets("Sept à déc 2008").Activate
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("CAS.xls").Activate
Sheets("Janvier à Août 2009").Range("B7:DS8").Copy
Windows("Congés ICNA 2008 à 2009.xls").Activate
Sheets("Janvier à Août 2009").Activate
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("CAS.xls").Activate
Sheets("Sept à déc 2009").Range("B7:DS8").Copy
Windows("Congés ICNA 2008 à 2009.xls").Activate
Sheets("Sept à déc 2009").Activate
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
' Fermeture de la feuille CAS.xls
Windows("CAS.xls").Activate
ActiveWorkbook.Close
' Partie de récuperation pour le controleur "CORDIER"
Workbooks.Open Filename:= _
"C:\Documents and Settings\vsuppa\Bureau\congé\CDR\CDR.xls"
Sheets("Janvier à Août 2008").Range("B7:DS8").Copy
Windows("Congés ICNA 2008 à 2009.xls").Activate
Sheets("Janvier à Août 2008").Activate
Range("B15").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("CDR.xls").Activate
Sheets("Sept à déc 2008").Range("B7:DS8").Copy
Windows("Congés ICNA 2008 à 2009.xls").Activate
Sheets("Sept à déc 2008").Activate
Range("B15").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("CDR.xls").Activate
Sheets("Janvier à Août 2009").Range("B7:DS8").Copy
Windows("Congés ICNA 2008 à 2009.xls").Activate
Sheets("Janvier à Août 2009").Activate
Range("B15").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("CDR.xls").Activate
Sheets("Sept à déc 2009").Range("B7:DS8").Copy
Windows("Congés ICNA 2008 à 2009.xls").Activate
Sheets("Sept à déc 2009").Activate
Range("B15").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("CDR.xls").Activate
ActiveWorkbook.Close
End Sub |
Partager