Erreur exécution 1004 VBA

Bonjour,

Mon code ne marche qu'une fois sur 10, et toujours le même code erreur "1004"
Pouvez vous m'aider :

Code:

---

1 2 3 4 5 6 7

Sub maj()   Sheets("Choix par centrales").Activate ActiveSheet.PivotTables("CATCD1").PivotFields("COMPANYCHAINID").ClearAllFilters ActiveSheet.PivotTables("CATCD1").PivotFields("COMPANYCHAINID").CurrentPage = ActiveSheet.Range("D3").Value   End Sub

---

Merci pour votre aide car débutante.

Bonjour,

Quel est le descriptif de l'erreur et sur quel ligne obtient tu cette erreur ?

edit:
si l'erreur intervient sur la ligne ClearAllFilters c'est probablement un soucis de nom du TCD ou de nom du champs
si l'erreur intervient sur la dernière ligne c'est la valeur en D3 qui pose problème
Dans tous les cas pense à vérifier si il n'y aurait pas un ou plusieurs espace dans le nom du champs ou ses valeurs qui expliquerait pourquoi Excel ne les trouvent pas

Bonjour,

le message est :

Citation:

---

Impossible de définir la propriété currentPage de la classe PivotField

---

Blocage sur :

Code:

---

ActiveSheet.PivotTables("CATCD1").PivotFields("COMPANYCHAINID").CurrentPage = ActiveSheet.Range("D3").Value

---

D'après l'aide VBA, cette propriété est un objet PivotItem.
Je doute (sans certitude) qu'elle puisse être renseignée par un valeur de cellule.
Lire ceci :
https://docs.microsoft.com/fr-fr/off...ld.currentpage
https://docs.microsoft.com/fr-fr/off...xcel.pivotitem

Merci pour les liens.
J'ai modifié mon code de la sorte :

Code:

---

1 2 3 4 5 6 7 8

Sub Macro1() ' ' Macro1 Macro   Sheets("Choix par centrales").Activate ActiveSheet.PivotTables("CATCD1").PivotFields("COMPANYCHAINID").ClearAllFilters Sheets("Choix par centrales").PivotTables("CATCD1").PivotFields("COMPANYCHAINID") = Sheets("Choix par centrales").Range("D2").Value End Sub

---

Et maintenance j'ai une autre erreur qui est :

Citation:

---

Impossible de lire la propriété PivotFields de la classe PivotTable

---

Dans les liens je n'ai pas trouvé d'exemple proche de ma demande, qui est de modifier le filtre d'un tableau croisé dynamique selon la valeur d'une liste déroulante présente dans la même feuille.