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 source de données. 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(1)
xx.PivotTableWizard SourceType:=xlDatabase, SourceData:="[" & Range("filename").Value & "]datainput!data", tablename:="BaseData"
Next x
Pourriez-vous m'aider ?
Cordialement.
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 source de données. 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(1)
xx.PivotTableWizard SourceType:=xlDatabase, SourceData:="[" & Range("filename").Value & "]datainput!data", tablename:="BaseData"
Next x
Pourriez-vous m'aider ?
Cordialement.