Bonjour,
Comment puis je remplacer le nom du Pivot Fields par la référence d'une cellule qui contient son nom ?
Sub Macro99()
Sheets("tcd").Select
ActiveSheet.PivotTables("tcd").AddDataField ActiveSheet.PivotTables("tcd"). _
PivotFields("annuaire"), " annuaire", xlSum
Sheets("Selection").Select
End Sub
Merci de votre aide
Partager