Discussion :

[clem256]

Bonjour

j'essaye de créer un TCD avec VBA. J'en enregistré une macro en créant depuis Excel. Puis j'ai commmencé à modifier des chaines pour les remplacer par des variables pour plus de souplesse. Quand j'essaye d'exécuter la création du TCD en seule instrcution, j'ai une erreur. Alors j'ai scindé en deux: creation du Pivotcache puis création du PivotTable. et c'est à l'appel pour la creation de PivotTable que j'ai l'erreur. Voici le bout de code

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
'
' CreationTCD_2 Macro
' Enregistrement creation TCD
'

'
    Dim objPivotCache As PivotCache
    Dim shSourceName As String
    Dim shDestName As String
    
    
    Sheets(getTCDdestSheet).Select
    Range("A1").Select
    shSourceName = getSourceTCDData & "!R1C1:R181C27"
    shDestName = getTCDdestSheet & "!R1C1"
    
    Set objPivotCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        shSourceName, Version:=6)
        objPivotCache.CreatePivotTable TableDestination _
        :=shDestName, TableName:="PivotTable1", ReadData:=False, DefaultVersion:=6
        
    'ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
     '   shSourceName, Version:=6).CreatePivotTable TableDestination _
      '  :=shDestName, TableName:="PivotTable1", DefaultVersion _
       ' :=6

J'ai mis en rouge l'appel qui semble être la cause de l'erreur. les fonctions "getSourceTCDData et getTCDdestSheet" retournent respectivement les noms des feuilles sources des données en entrée et le nom de la feuille où sera mis le TCD. En pièce jointe un screenshot de l'appel et l'erreur.
Merci pour vos conseils.
Clem 256

[Invité]

Bonsoir,
https://www.developpez.net/forums/d1...t/#post7912734

[Pierre Fauconnier]

Salut.

Je ne connais pas le but de ta démarche, mais j'ai rarement eu à créer des tcd par macros.


Peux-tu nous en dire plus sur la finalité de ta demande? Habituellement, on crée le TCD manuellement, et on met éventuellement les données à jour par macros. Normalement avec un 2016, ça demande une seule ligne de programmation car on appuie le TCD sur un tableau de données.

[Invité]

Bonjour Pierre,
Je suis d'accord avec toi; un tdc qui prend en compte la colonne A:XX affichera le résultat et ce quelque soit le nombre de lignes!

Mais vue le nombre demande lié a la construction dynamique de tdc j'ai mis en place une boîte à outils pour le permettre.

Personnellement je préfère utiliser un Xltm; je ne gère jamais le création de tdc par macro!

[Pierre Fauconnier]

Bonjour Robert,

J'apprécie beaucoup ton outil qui peut effectivement simplifier la création du tcd. Mais je trouve que dans de nombreux cas, travailler sur un modèle est bien plus simple que de se lancer dans la construction d'un tcd. A priori, créer un tcd par macro n'est pas très compliqué, mais souvent, cette construction par vba s'appuie sur une structure de classeur qui n'est pas tiptop et sur des connaissances VBA mal maîtrisées.

Bonne journée

[clem256]

Salut.

Je ne connais pas le but de ta démarche, mais j'ai rarement eu à créer des tcd par macros.


Peux-tu nous en dire plus sur la finalité de ta demande? Habituellement, on crée le TCD manuellement, et on met éventuellement les données à jour par macros. Normalement avec un 2016, ça demande une seule ligne de programmation car on appuie le TCD sur un tableau de données.

Bonsoir Pierre

Merci pour ton retour. Je ne sais pas si j'ai choisi la bonne approche, mais mon objectif est simple. Je dois produire un rapport deux à trois fois par semaine à partir d'un fichier Excel généré par un autre outil. Ce rapport comporte une fenêtre glissante de 4 semaines. Chaque semaine on montre les changements sur les 4 dernières semaine non compris la semaine courante, car les utilisateurs peuvent modifier leurs données 4 semaines en amont de la courante. Mon but est d'automatiser le plus possible la production de ce rapport. Un appui sur un bouton et je lance la génération. Le TCD est le modèle choisi. Voilà pourquoi le programmer en VBA (une fois l'effort fait) m'a semblé plus souple.

Cordialement
clem256

[78chris]

Bonjour

La bonne méthode est d'avoir un TCD dans un classeur qui utilise les données du fichier exporté sans les importer : l'actualisation suffit alors.

[Pierre Fauconnier]

La démarche que je préconise te permet cela sans soucis. Chris, que je salue au passage, dit la même chose autrement

[clem256]

Merci. J'ai dû m'absenter, mais je reviens pourvous remercier de vos conseils/astuces. J'en prends bonne note et considère que le case est résolu.

Clem256