Changer la source de données de plusieurs TCD Fermé

Question

Bonjour a tous, 

J'aimerais à l'aide d'une macro actualiser plusieurs TCD faisant partie d'un même classeur et disposant de la même source de donnée. Toutefois, cette source de données est un fichier excel à part, ainsi j'aurai voulu savoir si je pouvais faire une macro qui me permettrai d'actualiser les TCD en fonction du nom de cette base?? 

Merci a tous 



Configuration: Windows XP / Safari 535.1

Le Pingou · Answer

Bonjour,
Ceci est toujours sans réponse https://forums.commentcamarche.net/forum/affich-24101691-macro-pour-tableau-croises-dynamiques#5

Le Pingou · Answer

Bonjour,
Merci pour les fichiers.
Question : par rapport à la feuille[ventes] du classeur [Ventes_Janvier] les autres classeurs on les données dans les mêmes colonnes et c'est uniquement le nombre de lignes d'enregistrement qui est variable ?

iffrit3413 · Answer

Oui les colonne ne bougent pas seules les lignes sont variables en fonctions des critères voulus.

Le Pingou · Answer

Bonjour,
Voici ma proposition, vos 2 fichiers : https://www.cjoint.com/?3Arw5lI4eSA
Note voir la petite explication sur le classeur [iffrit3413_ccm_recap_ventes_Janvier.xlsm]

iffrit3413 · Answer

Merci bien du temps consacré. Toutefois, je vais encore avoir besoin car lorsque j'essaye de l'adapter à mon fichier plus évoluer cela plante voici le code Option Explicit

Sub nouveldataTCD()
    Dim DataSource As Range, Sh As Worksheet
    Dim PvT As PivotTable
    Dim clasource As String, nomfeuil As String
    clasource = Range("E3"): nomfeuil = Range("E4")
    With Workbooks(clasource).Sheets(nomfeuil)
        Set DataSource = .Range("GM")
        Application.EnableEvents = False
        For Each Sh In Worksheets
            For Each PvT In Sh.PivotTables
                PvT.ChangePivotCache _
                    ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
                        "[" & clasource & "]" & nomfeuil & "!" & DataSource.Address, Version:=xlPivotTableVersion12)
                    PvT.RefreshTable
                Next PvT
            Next Sh
        Application.EnableEvents = True
    End With
End Sub

Cela me met erreur 1004 définie apr l'application ou par l'objet au niveau de PVT.Changepivotcache :/ une solution ?? 

merci beaucoup en tous cas

Le Pingou · Answer

Bonjour,
Vous contrôlez que l'instruction soit écrite correctement, elle doit correspondre à une ligne d'instruction : 
PvT.ChangePivotCache ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="[" & clasource & "]" & nomfeuil & "!" & DataSource.Address, Version:=xlPivotTableVersion14)
Si possible faire une copie d'écran avec le message d'erreur et une deuxième sur le débogage et me les transmettre via https://www.cjoint.com/

Note: est-ce que cela fonctionne avec l'exemple ...Oui  /  Non !

Changer la source de données de plusieurs TCD

6 réponses

Discussions similaires