[XL-2010] Remplacer le nom d un onglet par une variable

Remplacer le nom d un onglet par une variable

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:

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

tu crée une chaine et tu place cette chaine à la place de ton nom d'onglet :
Code:

1 2 3 Dim NomOnglet as String NomOnglet = "KFP01 truc bidule chouette" Worksheets(NomOnglet).select

Bonjour,

Pour 17 feuilles, de cette façon peut être ?
Code:

1 2 3 4 5 6 7 8 9 Dim NomFeuille As String Dim I As Integer I = I + 1 NomFeuille = "KPI" & Format(I, "00") & " In Inventory" Sheets(NomFeuille).Select
Il faudrait que tu revois ton code afin d'éviter autant que possible les "Select" et "Activate" qui ralentissent l'exécution et font scintiller l'écran.

Hervé.