TCDs - Détection automatique

newpixi · 1 Mars 2010

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 · 1 Mars 2010

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...)

Code:

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 · 1 Mars 2010

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 · 1 Mars 2010

Re : TCDs - Détection automatique

Re,

newpixi à dit:
...Je ne comprends pas le "ws", quelle est sa signification...

Et comme ceci

Code:

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 · 1 Mars 2010

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

TCDs - Détection automatique

newpixi

Guest

kjin

XLDnaute Barbatruc

newpixi

Guest

kjin

XLDnaute Barbatruc

newpixi

Guest

TCDs - Détection automatique

newpixi

Guest

kjin

XLDnaute Barbatruc

newpixi

Guest

kjin

XLDnaute Barbatruc

newpixi

Guest

Privacy & Transparency

Privacy & Transparency