Macro de création de TCD

Version imprimable

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:

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. :roll:

Merci par avance pour votre aide.

07/08/2012, 11h10
Daniel.C

Bonjour,

Citation:

Pour le moment, ça bloque à ... la première ligne.

Oui... Si tu nous disais ce qui se passe ? une erreur ? laquelle ? Quel est le nom de la feuille contenant les données sources et celui de la feuille devant contenir le TCD ?
07/08/2012, 11h32
cynoq

bonjour, ma page de départ est la page déjà copiée. Le TCD doit s'insérer sur la même feuille.
En revanche, le nom de cette feuille va changer au fur et à mesure que j'utilise la macro puisque c'est la feuille d'origine (nommée Base) qui va se recopier avant d'insérer le TCD.
Les feuilles copiées sont de simples numéros (1 à 52 pour le nombre de semaines de l'année).
Le message d'erreur que j'obtiens est le suivant :

Citation:

Erreur d'exécution :"1004'
Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport existant.

Petite correction, j'ai vu d'où venait l'erreur, un manque de place sous un TCD existant (il ne devait pas être là).
Donc j'ai repris la macro depuis le départ, avec une feuille vierge et j'ai maintenant le message suivant :

Citation:

Erreur d'exécution '5':
Argument ou appel de procédure incorrect

en fait, comment puis-je faire pour définir les valeurs qui vont changer à chaque copie de ma page de départ ? Dans le code inscrit au dessus, ce sont les valeurs en rouge des lignes 2, 3 et 5.

Essaie comme ça :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Dim NomFeuille As String
NomFeuille = ActiveSheet.Name
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        NomFeuille & "!R4C1:R2004C30", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:=NomFeuille & "!R4C35", TableName:=num_semaine, _
        DefaultVersion:=xlPivotTableVersion12
    Sheets(NomFeuille).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

07/08/2012, 13h01
cynoq

:ccool:
Génial ! Merci beaucoup.
Ca fonctionne comme il se doit.