Bonjour,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.