Dans une macro, alimenter un fichier à partir d'un TCD dans une macro

[lamailloche]

Bonsoir
Je voudrai à partir d'un tableau croisé, alimenter des fichiers mais la macro bug quand je réactualise le TC suite à mise à jour et qu'une valeur est absente.
Un fichier en pièce jointe pour illustrer.
La macro
For Each Pt In ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Ville").PivotItems
Pt.Visible = True
If Pt.Name = "Marseille" Then Pt.Visible = True Else Pt.Visible = False
Next Pt
La réponse doit être dans le forum mais je n'ai pas su trouver !
Merci pour votre aide.

 

[Pierrot93]

Re : Dans une macro, alimenter un fichier à partir d'un TCD dans une macro

Bonjour,

essaye ceci :

Sub Macro4()
For Each Pt In ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Ville").PivotItems
    Pt.Visible = True
Next Pt
For Each Pt In ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Ville").PivotItems
    If Pt.Name <> "Marseille" Then Pt.Visible = False
Next Pt
End Sub

bonne journée
@+

 

[lamailloche]

Re : Dans une macro, alimenter un fichier à partir d'un TCD dans une macro

Bonjour Pierrot93
J'ai essayé après avoir supprimé des Données source Grenoble et réactualisé le TC et ca bug sur la ligne "Pt.Visible = True" avec le message d'erreur "Impossible de définir la propriété Visible de la classe PivotItem"

 

[Pierrot93]

Re : Dans une macro, alimenter un fichier à partir d'un TCD dans une macro

Re,

oui, normal si des données source sont supprimées... modifie comme suit :

Sub Macro4()
For Each pt In ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Ville").PivotItems
    If pt.RecordCount > 0 Then pt.Visible = True
Next pt
For Each pt In ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Ville").PivotItems
    If pt.Name <> "Marseille" Then pt.Visible = False
Next pt
End Sub

 

[lamailloche]

Re : Dans une macro, alimenter un fichier à partir d'un TCD dans une macro

Tip Top, c'est magique. Merci et bonne journée