Bonsoir
Je suis sous win 7 et Excel 2010 et je bute sur le remplacement d'un nom d'onglet par une variable
ci-dessous "KPI01 In Inventory" = nom d'un onglet comme vous le voyez : il est utilisé 3 fois dans cette partie de mon macro ( je cree 17 onglets )
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ' ' Copier / Coller des IN INVENTORY pour "KPI01 In Inventory" ' Windows("All Hardware and Network CI By Location Report.xlsx").Activate Range("B2").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.AutoFilter ActiveSheet.Range("$B$2:$AL$" & Lastline).AutoFilter Field:=11, Criteria1:= _ "In Inventory" ActiveSheet.Range("$B$2:$AL$" & Lastline).AutoFilter Field:=12, Criteria1:= _ "Deployable" ActiveSheet.Range("$B$2:$AL$" & Lastline).AutoFilter Field:=6, Criteria1:= _ "Laptop", Operator:=xlOr, Criteria2:="=Desktop" Range("B2").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Copy Windows("KPIs.xlsx").Activate Sheets("KPI01 In Inventory").Select Range("A1").Select ActiveSheet.Paste Cells.Select Application.CutCopyMode = False MieEnform Sheets("KPI01 In Inventory") Sheets("KPI01 In Inventory").Select Cells.Select ActiveSheet.Range("$A$1:$AL$" & Lastline).RemoveDuplicates Columns:=2, Header:= _ xlYes
Merci
Partager