Discussion :

[Biboozz]

Bonjour messieurs(dames),

Voila depuis 2 jours je cherche à creer un TCD, c'est la premiere foi que j'en crée un par macro et je ne sais pas forcement quell type est cense allé dans quoi. J'ai regardé le tutorial de Developpez.com mais rien n'y fait j'ai toujours une erreur quelque-part. La commande etant longue il est impossible de savoir sur quell composant est générée l'erreure.

Aors voila le truc :

J'ai une feuille (nommée GAC_Plac). Je voudrais récuperer toutes les données dans la zone "A:G" et créer un TCD sur la meme feuille dont le coin supérieur gauche est en case "L1".

Voila je vous met le code que j'ai pour le moment :

Code :

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

1
2
3
4
Application.ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    ActiveSheet.Range("A:G")).CreatePivotTable _
    TableDestination:=ActiveSheet.Range("L1"), _
    TableName:="Mon TCD"

[halaster08]

Bonjour,

Il me semble que quand on crée un TCD par macro, il n'aime pas le range sur les colonne entière, essaye comme ça:

Code :

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

1
2
3
4
5
dl = Range("A" & Rows.Count).End(xlUp).Row
Application.ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    ActiveSheet.Range("A1:G" & dl)).CreatePivotTable _
    TableDestination:=ActiveSheet.Range("L1"), _
    TableName:="Mon TCD"

[Al__22]

Un petit coup d'enregistreur de macro te donnera ta réponse en toute logique

Code :

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

1
2
3
4
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
       ActiveSheet.Range("A1:G" & dl), Version:=xlPivotTableVersion10).CreatePivotTable _
        ActiveSheet.Range("L1"), TableName:="Mon TCD", _
        DefaultVersion:=xlPivotTableVersion10

[Biboozz]

En utilisant la technique de halaster08 cela créé bien un TCD merci de ton aide. Cependant j'ai tout te meme une question: comment puis-je vérifier que le tableau n'a pas déja été créé et si c'est le cas le supprimer.

[halaster08]

Pourquoi supprimer un TCD pour le refaire ensuite?
Pourquoi ne pas simplement le mettre à jour?