Utilitaire de récupération des paramètres d'un TCD par VBA

[Herdet]

Bonjour,
Ci-joint un utilitaire pour récupérer pas mal de paramètres d'un TCD (Tableau Croisé Dynamique)

Voir la procédure Sub TCDparam(ByVal Fichier As String, ByVal TCDfeu As String, ByVal TCDnom As String)
Les paramètres sont récupérés à partir de la fonction Set aa = .DataBodyRange

Si vous avez d'autres besoins de paramètres, on doit pouvoir améliorer cet utilitaire.

Bonne utilisation.

Robert

 

[eriiic]

Re : Utilitaire de récupération des paramètres d'un TCD par VBA

Pour tester, j'ai fais une version V02_01 ci-jointe en remplaçant les .ColumnWidths par les chemin complet par exemple

Merci c'est sympa, mais toujours pareil.

J'ai pu faire un pas à pas sur Sub UserForm_Initialize().
En fait ça bloque ici :
MPAprinc.PageEXPORTS.E_CBX_itemsChamp.ColumnWidths = a ' "150,80"
Une , à la place d'un ;
Bizarre qu'il n'y ait que mon vba qui soit susceptible à cette syntaxe

eric

edit
La ligne originale est MPAprinc.PageEXPORTS.E_CBX_itemsChamp.ColumnWidths = "150,80"
Le = a est un des test que j'ai oublié d'enlever

 

[Herdet]

Re : Utilitaire de récupération des paramètres d'un TCD par VBA

Bonjour,
Suite aux diverses remarques de chris en messages privés pour des TCD un peu compliqués avec champs calculés, multi sources de données, lignes de totaux multiples... et aussi à cause de 15 jours de vacances, je préfère différer la finalisation... à la rentrée, comme l'on dit.
A+
Robert