Modifier option d'un tcd par macro

[Rhiannon51]

Bonjour le forum,

Je galère sur un petit truc depuis quelques temps, j'y suis presque mais là, votre aide devient nécessaire.

J'ai un classeur avec de nombreux tableaux croisés. Je voudrais modifier certains paramètres situés dans la fenêtre "Options du tableau croisé dynamique" mais pour tous mes tcd en même temps.

Voilà la fenêtre en question :

Je veux que mon code coche l'option "Enregistrer les données sources avec le fichier" (décoché par défaut) et sélectionne "Aucun" dans "Nombre d'éléments à retenir par champ" (sélection "Automatique" par défaut).

Et voilà le code que j'ai déjà travailler. Apparemment ça fonctionne pour "Nombre d'éléments à retenir par champ" mais pas ça bug sur "Enregistrer les données sources avec le fichier" et je n'arrive à trouver la modif à faire :

For Each ws In ActiveWorkbook.Worksheets
  For Each pt In ws.PivotTables
    pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
    pt.SaveData = True
  Next pt
Next ws

J'espère avoir été assez clair.

A très vite.
Rhiannon.

 

[tashiqi]

Re : Modifier option d'un tcd par macro

As-tu essayé de voir ce qu'il proposait en passant par l'enregistreur de macros ?

 

[Rhiannon51]

Re : Modifier option d'un tcd par macro

oui il me met ça pour un tcd sélectioné :

ActiveSheet.PivotTables("Tableau croisé dynamique1").SaveData = True

Et je ne vois pas comment l'adapter à mon code de départ pour l'appliquer à tous mes tcd.

 

[tashiqi]

Re : Modifier option d'un tcd par macro

VBA te renvoie un message d'erreur ?

 

[Rhiannon51]

Re : Modifier option d'un tcd par macro

Il me dit "Impossible de définir la propriété SaveData de la classe PivotTable".

Dans mon code, j'ai déclaré ma variable pt comme PivotTable. Et l'erreur se met sur la ligne:

pt.SaveData = True

 

[tashiqi]

Re : Modifier option d'un tcd par macro

As-tu essayé ce bout de code tout seul ?
chez moi il fonctionne (avec excel2007)

 

[Pierrot93]

Re : Modifier option d'un tcd par macro

Bonjour,

pas tout suivi, mais à noter tout de même ce que dit l'aide vba (note) sur "SaveData"

SaveData, propriété
Voir aussiS'applique àExempleDétailsCette propriété a la valeur True si les données du rapport de tableau croisé dynamique sont enregistrées avec le classeur. Elle a la valeur False si seule la définition du rapport est enregistrée. Type de données Boolean en lecture-écriture.

Note
Dans le cas des sources de données OLAP, cette propriété a toujours la valeur False.

bon après midi
@+

 

[Rhiannon51]

Re : Modifier option d'un tcd par macro

Merci pour vos réponses. Je vais faire de nouveaux tests et reviendrais vers vous si je n'y arrive toujours pas.

A bientôt.