Bonjour à tous,
Je bloque sur la création d'une macro permettant de créer un TCD.
Mon fichier de départ comporte une feuille qui doit être recopiée à plusieurs reprises, via une macro, et chaque feuille est renommée avec un numéro.
Sur chaque copie, je dois insérer un TCD relatif à cette feuille.
Comment dois-je procéder ?
J'ai essayé de créer la macro via l'enregistreur mais je rencontre des problèmes avec les numéros de pages qui changent et les numéros de TCD.
Voici mon code pour le moment :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "2!R4C1:R2004C30", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="2!R4C35", TableName:=num_semaine, _
        DefaultVersion:=xlPivotTableVersion12
    Sheets("2").Select
    Cells(4, 35).Select
    With ActiveSheet.PivotTables(num_semaine).PivotFields( _
        "contenants_NOPOINTDEP")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables(num_semaine).PivotFields( _
        "pointsdepots_NOMCOM")
        .Orientation = xlPageField
        .Position = 1
    End With
    ActiveSheet.PivotTables(num_semaine).AddDataField ActiveSheet. _
        PivotTables(num_semaine).PivotFields("Vol_OM1"), _
        "Somme de Vol_OM1", xlSum
    ActiveSheet.PivotTables(num_semaine).AddDataField ActiveSheet. _
        PivotTables(num_semaine).PivotFields("Vol_OM2"), _
        "Somme de Vol_OM2", xlSum
    ActiveSheet.PivotTables(num_semaine).AddDataField ActiveSheet. _
        PivotTables(num_semaine).PivotFields("Total_Vol_OM"), _
        "Somme de Total_Vol_OM", xlSum
    ActiveSheet.PivotTables(num_semaine).AddDataField ActiveSheet. _
        PivotTables(num_semaine).PivotFields("Vol_TRI"), _
        "Somme de Vol_TRI", xlSum
 
    ActiveSheet.PivotTables(num_semaine).PivotSelect _
        "'Somme de Vol_TRI'", xlDataAndLabel, True
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveSheet.PivotTables(num_semaine).PivotSelect _
        "'Somme de Total_Vol_OM'", xlDataAndLabel, True
Pour le moment, ça bloque à ... la première ligne.

Merci par avance pour votre aide.