Bonjour,

Je cherche un code permettant de tester la présence d'un TCD sur une feuille,
Je dois en effet supprimer mon croisé dynamique mais seulement si celui ci existe, pour le moment mon code me permet juste de le supprimer:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sheets("Feuil5").Activate
 
 
 
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect "", xlDataAndLabel
Selection.Clear
Range("A1").Select

Merci d'avance.