Changer la source de données de plusieurs TCD
iffrit3413
Messages postés
12
Statut
Membre
-
Le Pingou Messages postés 12646 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12646 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
A voir également:
- Changer la source de plusieurs tcd en même temps
- Changer dns - Guide
- Renommer plusieurs fichiers en même temps - Guide
- Changer clavier qwerty en azerty - Guide
- Changer de carte graphique - Guide
- Tcd excel - Guide
6 réponses
Bonjour,
Ceci est toujours sans réponse https://forums.commentcamarche.net/forum/affich-24101691-macro-pour-tableau-croises-dynamiques#5
Ceci est toujours sans réponse https://forums.commentcamarche.net/forum/affich-24101691-macro-pour-tableau-croises-dynamiques#5
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]
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 ?
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 ?
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
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 !
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 !
http://cjoint.com/data3/3ArkYyMXl2k.htm
http://cjoint.com/12jv/BArkZe1PiQQ.htm