Changer la source de données de plusieurs TCD
iffrit3413
Messages postés
12
Statut
Membre
-
Le Pingou Messages postés 12274 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12274 Date d'inscription Statut Contributeur Dernière intervention -
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
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
6 réponses
-
Bonjour,
Ceci est toujours sans réponse https://forums.commentcamarche.net/forum/affich-24101691-macro-pour-tableau-croises-dynamiques#5
-
Voici les liens demandés, se sont des tableaux fictifs et très succincts toutefois mon pb y est bien résumés. Dans la mesures où il a bien une base et plusieurs TCD et que les fichiers sont distinguer de part leur mois. En espérant que se sera plus clair pour vous.
http://cjoint.com/data3/3ArkYyMXl2k.htm
http://cjoint.com/12jv/BArkZe1PiQQ.htm -
-
-
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]
-
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 ?
-
Oui les colonne ne bougent pas seules les lignes sont variables en fonctions des critères voulus.
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 -
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 !
