Je n'ai plus acc=E8s =E0 MPFE que par CDO :-((
J'esp=E8re que vous pourrez m'aider.
Je voudrais commander les pivotsfields d'un Tcd par VBA=20
via des Combobox, par ex:
var =3D range("A1")
Sheets("Tcd1").PivotTables("TCD1").PivotFields("TEST"). _
DataRange =3D var
et j'ai plusieurs PivotFields dans mon Tcd, il arrive donc=20
que l'on arrive avec un TCD pour lequel il n'y a plus de=20
donn=E9es.
Si par ma Combobox j'envoie=20
Sheets("Tcd1").PivotTables("TCD1").PivotFields("TEST"). _
DataRange =3D "(Tous)"
=E7a plante avec erreur 1004.
Si je fais la manip =E0 la main, =E7a fonctionne...
Le pb est sur XL97 et 2000.
Auriez vous des pistes ??
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
pour tout afficher (à tester) :
Sub zz_Pivots() With Sheets("Tcd1").PivotTables("TCD1").PivotFields("TEST") Dim monPivIt As Object For Each monPivIt In .PivotItems monPivIt.Visible = True Next End With End Sub
AV
pour tout afficher (à tester) :
Sub zz_Pivots()
With Sheets("Tcd1").PivotTables("TCD1").PivotFields("TEST")
Dim monPivIt As Object
For Each monPivIt In .PivotItems
monPivIt.Visible = True
Next
End With
End Sub
Sub zz_Pivots() With Sheets("Tcd1").PivotTables("TCD1").PivotFields("TEST") Dim monPivIt As Object For Each monPivIt In .PivotItems monPivIt.Visible = True Next End With End Sub
AV
François
Bonjour Alain,
J'ai le message Erreur d'exécution 1004 : "impossible de définir la propriété Visible de la classe Pivotitem" sur la ligne monPivIt.Visible = True
Je crains que ce soit insoluble ou peut-être en bricolant par les SendKeys mais je n'y suis pas arrivé.
Merci pour ton aide. Je reste à l'écoute François
-----Message d'origine----- pour tout afficher (à tester) :
Sub zz_Pivots() With Sheets("Tcd1").PivotTables("TCD1").PivotFields ("TEST")
Dim monPivIt As Object For Each monPivIt In .PivotItems monPivIt.Visible = True Next End With End Sub
AV
.
Bonjour Alain,
J'ai le message Erreur d'exécution 1004 : "impossible de
définir la propriété Visible de la classe Pivotitem" sur la
ligne monPivIt.Visible = True
Je crains que ce soit insoluble ou peut-être en bricolant
par les SendKeys mais je n'y suis pas arrivé.
Merci pour ton aide.
Je reste à l'écoute
François
-----Message d'origine-----
pour tout afficher (à tester) :
Sub zz_Pivots()
With Sheets("Tcd1").PivotTables("TCD1").PivotFields
("TEST")
Dim monPivIt As Object
For Each monPivIt In .PivotItems
monPivIt.Visible = True
Next
End With
End Sub