Mise à jour de TCD

[BAT]

Bonjour à tous,

J'ai une macro qui me mets à jours tous les TCD de mon classeur ! J'aimerai la modifier pour qu'elle ne mette à jour que les TCD de certainnes feuilles uniquement ( la feuille FRS DEFAUT, DEF, et FRS)! Est-ce possible ?

La macro (que j'adore) est la suivante :
For Each s In ActiveWorkbook.Sheets
For Each p In s.PivotTables
p.RefreshTable
Next p
Next s


Merci d'avance pour votre précieuse aide !

 

[Pierrot93]

Re : Mise à jour de TCD

Bonjour Bat

essaye peut être comme ci dessous, noms des feuilles à adapter :

Sub test()
Dim sh As Worksheet, p As PivotTable
For Each sh In Sheets(Array("Feuil1", "Feuil3"))
For Each p In sh.PivotTables
p.RefreshTable
Next p
Next sh
End Sub

bon après midi
@+

 

[Dan]

Re : Mise à jour de TCD

Bonjour,

essaye plutôt ceci :

 Private Sub Worksheet_Activate()
'MAcro par DAN le 30/08/07
Dim pvttable As PivotTable
With Application
     .ScreenUpdating = False
     .CommandBars("PivotTable").Visible = False
End With
Set pvttable = Worksheets("DEF").Range("A3").PivotTable
pvttable.RefreshTable
Application.ScreenUpdating = True
End Sub

Avec DEF le nom de ta feuille et Range A3, la première cellule en haut à gauche dans le TCD.

Macro à mettre en VBA (ALT+F11) dans la feuille concernée.

Une fois fait, lorsque tu activeras ta feuille, le TCD sera directement à jour.

A te lire
Dan

 

[BAT]

Re : Mise à jour de TCD

Alors là ! Voici deux choses de très intéressantes !

Dan ta solution est fortement intérressante ! Par contre dans mon cas le TCD viens piocher dans une base assée lourde ce qui retarde beaucoup l'exploitation de l'application ! Mais j'ai beaucoup d'autre fichier qui aimeront ce code !!!


Pierrot je retiens ta soluce pour ce cas !

Merci infiniment à vous pour votre aide