TCD - Afficher/Cacher les différents champs du TCD en VBA

Bonjour,

Le code suivant fonctionne quand il n'y a pas de dates dans les Champs du TCD.

Quand j'ajoute un Champs "dates" j'ai un message d'erreur "Type mismatch" à la ligne "If ITM.ShowDetail = False" quand le code passe sur les PivotItems du Champs "dates".

Après qqles recherches Google, il semblerait que le problème soit en rapport avec le formatage des dates car il semblerait que les dates dans les TCD sont en fait en format texte (?). Après plusieurs tentatives pour résoudre le problème, je suis toujours à la case départ. Qqn aurait une idée ?

Sub Expand_Field()
Dim pt As PivotTable
Dim FLD As PivotField
Dim ITM As PivotItem
Dim iFieldCount As Long
Dim iPosition As Long

Set pt = WS_TCD.PivotTables("pivottable1")

iFieldCount = pt.RowFields.Count - 1

For iPosition = 1 To iFieldCount
For Each FLD In pt.RowFields
If FLD.Position = iPosition Then
For Each ITM In FLD.PivotItems
If ITM.ShowDetail = False Then
FLD.ShowDetail = True
Exit Sub
End If
Next ITM
End If
Next FLD
Next iPosition

End Sub

bonjour,

vous avez un fichier exemplaire ?

Mon fichier est trop gros il passe pas (les filles me disent souvent ça aussi...). Bref, il y a une solution ?

sorry, non, je n'ai aucune idée et je ne cherche pas.