Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Pb erreur 1004

Pb erreur 1004

2 réponses
Avatar
François
Bonjour =E0 tous,

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 ??

Mille mercis par avance
Fran=E7ois
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
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
Avatar
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


.