Boucle pour changer toutes les bases de TCD sur plusieurs feuilles

[Egruat]

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

 

[Pierrot93]

Re : Boucle pour changer toutes les bases de TCD sur plusieurs feuilles

Bonjour,

If M < 10 Then

c'est quoi M ? si c'est une variable elle n'est ni déclarée ni initialisée....

bon après midi
@+

 

[Egruat]

Re : Boucle pour changer toutes les bases de TCD sur plusieurs feuilles

Oui vous avez raison mais je la déclare avant, donc pas de problème.

 

[Pierrot93]

Re : Boucle pour changer toutes les bases de TCD sur plusieurs feuilles

Re,
et M est initialisé comment ?
et sur quelle ligne l'erreur ?
difficile de t'aider avec juste un bout de code jeté sur un post....

 

[Egruat]

Re : Boucle pour changer toutes les bases de TCD sur plusieurs feuilles

Voici le code complet:

Public M As Integer
Dim Ws As Worksheet
Dim pt As PivotTable

M = Range("F7").Value

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 tape une valeur numérique dans M.

 

[Pierrot93]

Re : Boucle pour changer toutes les bases de TCD sur plusieurs feuilles

Re,

essaye peut être ceci :

Dim Ws As Worksheet, pt As PivotTable
M = Range("F7").Value
For Each Ws In Worksheets
    For Each pt In Ws.PivotTables
        If M < 10 Then
            pt.SourceData = "'C:\Doc1\2013\[Document1.xls]'!data"
        Else
            pt.SourceData = "'C:\Doc1\2013\[Document2.xls]'!data"
        End If
    Next pt
Next Ws

 

[Egruat]

Re : Boucle pour changer toutes les bases de TCD sur plusieurs feuilles

Bonjour,

ton code est plus simple et fonctionne lorsqu'il n'y a qu'un seul TCD sur une feuille. En revanche, cela ne fonctionne pas dès qu'il y a plusieurs TCD...

 

[Pierrot93]

Re : Boucle pour changer toutes les bases de TCD sur plusieurs feuilles

Bonjour,

bizarre, chez moi boucle sur tous les TCD des feuilles....

bon après midi
@+

 

[Pierrot93]

Re : Boucle pour changer toutes les bases de TCD sur plusieurs feuilles

Re,

attention également, ta variable M n'est initialisée qu'une seulle fois, et ce sur la feuille active....