Discussion :

[denisw95]

Bonjour,

J'ai développé une procédure en VB qui créent des TCD à la foulée (environ 120), puis génèrent un graphique sur la base du TCD puis copie le graphique sous forme d'image dans un PPT . Le temps de création du TCD augmente au fur et à mesure de l'avancée de la procédure (les 1er à moins d'une seconde, les derniers à plus de 12 secondes).
Ces tableaux ont, en général, toujours la même structure, seules les valeurs de filtre changent.
Pour optimiser ma procédure et plutôt que de recréer systématiquement des TCD, je voudrais tester l'existence d'un TCD "modèle" puis changer les valeurs de filtres uniquement

Comment peut-on tester si un TCD existe ?

Merci d'avance pour vos réponses

[denisw95]

Je m'en sors avec un test d'erreur sur l'assignation du TCD

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
on error Resume Next
Set Pvt = ActiveSheet.PivotTables(Table_Name)
If err > 0 then
     msgbox "TCD inexistant"
   else
     msgbox "TCD existant"
end if

mais existe t-il quelque chose de plus propre que générer une erreur ?