Ben chez moi ça fonctionne.
Je regarde. Quelle version d'Excel utilises tu ?
Edition :
Le message d'erreur : tu l'obtiens sur ton fichier ou bien sur le mien ?
Si c'est sur le tien, c'est parceque tu dois adapter le nom du champ de page et le nom du TCD (que tu peux lire avec clic droit options)
ActiveSheet.PivotTables('Tableau croisé dynamique1').PivotFields('rech'). _
CurrentPage = choix
Message édité par: Dugenou, à: 23/02/2006 18:52
Message édité par: Dugenou, à: 23/02/2006 18:54