Boucle pour trouver TCD dans toutes les feuilles

Bonjour,

Je souhaiterai faire une boucle pour trouver tous les tableaux croisés dynamiques (TCD) dans toutes les feuilles de mon classeur et ainsi définir pour chaque TCD une base de données.

La base de donnée est défini comme suit: sur la feuille "Base" de mon classeur, j'ai défini la cellule A2 comme un champ dont le nom est "Filename" et je souhaiterai que tous mes TCD dans toutes mes feuilles prennent comme base de donnée le champ "Filename" en y ajoutant "data" pour que le fichier de référence soit considéré comme une base de donnée.

Voici ce que j'ai fait mais cela ne fonctionne pas:

x = PivotTable

Ws = Worksheet

For Each x In Ws

Set xx = ActiveWorkbook.Worksheets("Ws").PivotTables("x")

xx.PivotTableWizard SourceType:=xlDatabase, SourceData:="[" & Range("filename").Value & "]datainput!data", tablename:="BaseData"

Next x

Pourriez-vous m'aider ?

Cordialement.

Bonsoir,

Merci de mettre un fichier en ligne ce sera plus simple, surtout avec les TCD

Amicalement

Salut

je ne sais pas si c'est tard mais voici une boucle qui trouve et actualise tous les TCD du classeur

bon essai!!!

Sub rafraichir()

Application.ScreenUpdating = False

Dim pvt As PivotTable
Dim sh As Worksheet

For Each sh In Worksheets
    'If sh.PivotTables.Count >= 1 Then
        For Each pvt In sh.PivotTables
            pvt.RefreshTable
        Next pvt
    'End If
Next sh
Application.ScreenUpdating = True
End Sub