Existe t-il un moyen de mettre à jour automatiquement un TCD. Par défaut, il
faut cliquer sur 'Mise a jour", mais je souhaiterais qu'à chaque modification
d'une valeur dans la feuille source, le TCD soit mise à jour en direct,
automatiquement.
Voici une macro que j'ai réalisé qui te permet de paser d'une vue à l'autre du tableau croisé. Tu y mets tous les critères de ton tableau croisé, tu finis par ajouter une ligne incluant le membre "Update" est c'est fait.
PS : il faut créer la macros sous le nom auto_open() afin qu'elle lance automatique ment à l'ouverture du fichier (donc effectue la mise à jour du TCD).
Exemple :
Sub auto_open() ' Ce code que j'ai adapté permet d'accéder à une vue particulière d'un Tableau Croisé Dynamique (TCD)
Dim pt As PivotTable, pf As PivotField ' accéder au bon tableau croisé.. Set pt = Worksheets("Feuil4").PivotTables("Tableau croisé dynamique1") ' mettre les données à croiser. Set pf = pt.PivotFields("AddPageItem") ' Make it a page field. pf.Orientation = xlPageField ' Selection de ma page voulue. pf.CurrentPage = "Creator2" pf.update
End Sub -- olivier
Salut à tous,
Existe t-il un moyen de mettre à jour automatiquement un TCD. Par défaut, il faut cliquer sur 'Mise a jour", mais je souhaiterais qu'à chaque modification d'une valeur dans la feuille source, le TCD soit mise à jour en direct, automatiquement.
Est-ce possible ?
Merci d'avance :)
Voici une macro que j'ai réalisé qui te permet de paser d'une vue à l'autre
du tableau croisé.
Tu y mets tous les critères de ton tableau croisé, tu finis par ajouter une
ligne incluant le membre "Update" est c'est fait.
PS : il faut créer la macros sous le nom auto_open() afin qu'elle lance
automatique ment à l'ouverture du fichier (donc effectue la mise à jour du
TCD).
Exemple :
Sub auto_open()
' Ce code que j'ai adapté permet d'accéder à une vue particulière d'un
Tableau Croisé Dynamique (TCD)
Dim pt As PivotTable, pf As PivotField
' accéder au bon tableau croisé..
Set pt = Worksheets("Feuil4").PivotTables("Tableau croisé dynamique1")
' mettre les données à croiser.
Set pf = pt.PivotFields("AddPageItem")
' Make it a page field.
pf.Orientation = xlPageField
' Selection de ma page voulue.
pf.CurrentPage = "Creator2"
pf.update
End Sub
--
olivier
Salut à tous,
Existe t-il un moyen de mettre à jour automatiquement un TCD. Par défaut, il
faut cliquer sur 'Mise a jour", mais je souhaiterais qu'à chaque modification
d'une valeur dans la feuille source, le TCD soit mise à jour en direct,
automatiquement.
Voici une macro que j'ai réalisé qui te permet de paser d'une vue à l'autre du tableau croisé. Tu y mets tous les critères de ton tableau croisé, tu finis par ajouter une ligne incluant le membre "Update" est c'est fait.
PS : il faut créer la macros sous le nom auto_open() afin qu'elle lance automatique ment à l'ouverture du fichier (donc effectue la mise à jour du TCD).
Exemple :
Sub auto_open() ' Ce code que j'ai adapté permet d'accéder à une vue particulière d'un Tableau Croisé Dynamique (TCD)
Dim pt As PivotTable, pf As PivotField ' accéder au bon tableau croisé.. Set pt = Worksheets("Feuil4").PivotTables("Tableau croisé dynamique1") ' mettre les données à croiser. Set pf = pt.PivotFields("AddPageItem") ' Make it a page field. pf.Orientation = xlPageField ' Selection de ma page voulue. pf.CurrentPage = "Creator2" pf.update
End Sub -- olivier
Salut à tous,
Existe t-il un moyen de mettre à jour automatiquement un TCD. Par défaut, il faut cliquer sur 'Mise a jour", mais je souhaiterais qu'à chaque modification d'une valeur dans la feuille source, le TCD soit mise à jour en direct, automatiquement.
Est-ce possible ?
Merci d'avance :)
Fredo P.
Salut AV pour info, mais je ne suis pas doué avec les tcd, ça coince à la ligne ActiveSheet.PivotTables("monTCD").RefreshTable "AV" a écrit dans le message de news: #
Un exemple là :
http://cjoint.com/?jplgAlNPvn
AV
Salut AV pour info, mais je ne suis pas doué avec les tcd, ça coince à la
ligne
ActiveSheet.PivotTables("monTCD").RefreshTable
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
#RzaOZK2GHA.3516@TK2MSFTNGP06.phx.gbl...
Salut AV pour info, mais je ne suis pas doué avec les tcd, ça coince à la ligne ActiveSheet.PivotTables("monTCD").RefreshTable "AV" a écrit dans le message de news: #
