TCDs - Détection automatique

[newpixi]

Bonjour le forum,

Travaillant beaucoup avec les TCDs et faisant souvent des fautes de calcul à cause de ces derniers (j'oublie souvent d'actualiser les données... 😡 ); je me suis posé une question : Est-il possible de détecter automatiquement les TCDs d'un document? 😕

Prenons un exemple simple, j'ai un document xls beta contenant par exemple dix pivots. Lorsque je l'ouvre je voudrais bien exécuter une macro me disant : "il y a dix pivots".

Jusqu'à présent j'ai renommé les pivots et ai demandé un msgbox demandant l'actualisation. Je voudrai un peu le même système mais sans avoir à renommer les tcds, ou en me basant sur les "noms de base" des tcds

Merci d'avance le forum, je vous souhaite une bonne soirée !🙂

 

[kjin]

Re : TCDs - Détection automatique

Bonsoir,
Pas trop compris le pb mais bon
2 macros, 1 qui t'indique le nombre de TCD dans le classeur et l'autre qui les actualise tous
In english in ze texte (c'est ma minute...)

Sub OmaniTCDEZ()
For Each ws In ActiveWorkbook.Sheets
    compteur = compteur + ws.PivotTables.Count
Next
MsgBox "Zeriz " & compteur & " TCDEZ in ze classeur"

End Sub

Sub refreshTCDEZ()
For Each ws In ActiveWorkbook.Sheets
    For Each pvt In ws.PivotTables
        pvt.RefreshTable
    Next
Next

End Sub

A+
kjin

 

[newpixi]

Re : TCDs - Détection automatique

Salut kjin,

SUper merci 🙂 😀

Je vais regarder demain au boulot si ca marche. Je ne comprends pas le "ws", quelle est sa signification? Je ne travaille pas sous 2007 au boulot mais 2003.

Ps: nice english 😉

Bonne soirée,

 

[kjin]

Re : TCDs - Détection automatique

Re,

...Je ne comprends pas le "ws", quelle est sa signification...

Et comme ceci

Sub OmaniTCDEZ()
[COLOR="Blue"]Dim ws As Worksheet[/COLOR]
For Each ws In ActiveWorkbook.Sheets
    compteur = compteur + ws.PivotTables.Count
Next
MsgBox "Zeris " & compteur & " TCDEZ in ze classeur"

End Sub

Sub refreshTCDEZ()
[COLOR="Blue"]Dim ws As Worksheet, pvt As PivotTable[/COLOR]
For Each ws In ActiveWorkbook.Sheets
    For Each pvt In ws.PivotTables
        pvt.RefreshTable
    Next
Next

End Sub

c'est plus mieux...(Nice french aussi...)
A+
kjin

 

[newpixi]

Re : TCDs - Détection automatique

Re kjin,

Merci... Désolé j'aurais pu me douter que c'était une variable 🙄. Je reste un débutant amateur VBA, alors dès que la synthaxe se modifie je m'affole 😀

Bonne soiré, et encore merci !

Antoine