Discussion :

[toto92]

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

[Phifou]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.