Bonjour,
Je souhaiterai changer la base de référence des données de plusieurs TCD sur plusieurs feuilles. J'y suis presque mais j'ai une erreur que je ne trouve pas. Quelqu'un ^peut-il m'aider ?
Cordialement.
Voici le code:
Dim Ws As Worksheet
Dim pt As PivotTable
For Each Ws In Worksheets
Ws.Select
Range("D8").Select
For Each pt In Ws.PivotTables
' Sélection des TCD et modification de leur cache en fonction de la valeur d'une référence M
If M < 10 Then
ActiveSheet.pt("TOTCIF").ChangePivotCache ActiveWorkbook.PivotCaches. _
Create(SourceType:=xlDatabase, SourceData:= _
"'C:\Doc1\2013\Document1.xls'!data", Version:=xlPivotTableVersion10)
Else
"'C:\Doc1\2013\Document2.xls'!data", Version:=xlPivotTableVersion10)
End If
Je souhaiterai changer la base de référence des données de plusieurs TCD sur plusieurs feuilles. J'y suis presque mais j'ai une erreur que je ne trouve pas. Quelqu'un ^peut-il m'aider ?
Cordialement.
Voici le code:
Dim Ws As Worksheet
Dim pt As PivotTable
For Each Ws In Worksheets
Ws.Select
Range("D8").Select
For Each pt In Ws.PivotTables
' Sélection des TCD et modification de leur cache en fonction de la valeur d'une référence M
If M < 10 Then
ActiveSheet.pt("TOTCIF").ChangePivotCache ActiveWorkbook.PivotCaches. _
Create(SourceType:=xlDatabase, SourceData:= _
"'C:\Doc1\2013\Document1.xls'!data", Version:=xlPivotTableVersion10)
Else
"'C:\Doc1\2013\Document2.xls'!data", Version:=xlPivotTableVersion10)
End If