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
| Workbooks.Open ("I:\ddiv-diec-qualite\Qualite-Vie-Serie\Capitalisation\DELAI LUP QC\ListeQuotidienne_LUP_QC.xls")
'Effacer les données de l'onglet ListeQuestions
Sheets("ListeQuestions").Select
Rows("1:1").Select '<--- C'est ici que j'ai un message d'erreur
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
'Ouvrir le fichier "Liste quotidienne Lup QC"
Workbooks.Open Filename:= _
"I:\ddiv-diec-qualite\Qualite-Vie-Serie\Capitalisation\SUIVI LUP\ListeQuotidienne_LUP_QC.xls"
ActiveWindow.Visible = False
Windows("ListeQuotidienne_LUP_QC.xls").Visible = True
'Trier colonne Direction et colonne Code source = Incidentologie
Selection.AutoFilter Field:=6, Criteria1:=Array("DE-VD POLE AMERIQUES", "DE-VD POLE COREE", "DE-VD POLE FRANCE", "DE-VD POLE ROUMANIE", "DE-VE POLE AMERIQUES", "DE-VE POLE COREE", "DE-VE POLE FRANCE", "DE-VE POLE ROUMANIE"), Operator:=xlFilterValues
'Copier et coller les données dans le fichier "Entrées"
Rows("6:6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("I:\ddiv-diec-qualite\Qualite-Vie-Serie\Capitalisation\DELAI LUP QC\Entrees_TdB_Delais_2013\ListeQuotidienne_LUP_QC.xls").Activate
Sheets("DATA").Select
Range("A4").Select
ActiveSheet.Paste
'Fermer le fichier "Liste quotidienne Lup QC"
Windows("ListeQuotidienne_LUP_QC.xls").Activate
ActiveWorkbook.Close
Sheets("ListeQuestions").Select
Selection.AutoFilter Field:=6, Criteria1:=Array("DE-VD POLE AMERIQUES", "DE-VD POLE COREE", "DE-VD POLE FRANCE", "DE-VD POLE ROUMANIE", "DE-VE POLE AMERIQUES", "DE-VE POLE COREE", "DE-VE POLE FRANCE", "DE-VE POLE ROUMANIE"), Operator:=xlFilterValues
Selection.Copy
'Worksbooks.Open("D:\LocalData\a195267\Desktop\2ème mission\Copie.xls").Activate
Range("A1").Select
ActiveSheet.Paste |
Partager