Comment interdire la mise à jour d’un TCD

[Sebast]

Je cherche à savoir comment interdire ou désactiver la mise à jour d’un tableau croisé dynamique.
Il y a bien une procédure événementielle mais elle réagit justement à la mise à jour : dans ce cas, c’est trop tard !

Merci d’avance pour vos lumières

 

[Dugenou]

Re : Comment interdire la mise à jour d’un TCD

Bonjour,
A part copier, coller valeurs, coller formats je ne vois pas !

 

[Sebast]

Re : Comment interdire la mise à jour d’un TCD

c'est bien ce que je craignais, Dugenou !
Mais mon problème est que je diffuse le fichier et ne veux autoriser que telle ou telle personne à le mettre à jour, tout en autorisant l'ensemble des destinataires à le lire ...

Merci quand même!

 

[Dugenou]

Re : Comment interdire la mise à jour d’un TCD

Tu envoies un fichier avec le tcd mais sans la base de données en leur disant de ne pas mettre à jour à l'ouverture
Tu mets la bdd dans un repertoire accessible seulement à ceux qui peuvent mettre à jour.
Ou alors tu fais une feuille qui affiche les cellules du TCD par liaison : ils peuvent lire mais pas modifier

 

[JCGL]

Re : Comment interdire la mise à jour d’un TCD

Bonjour à tous,

Envoie ou met à disposition une copie en *.pdf

A+ à tous

 

[Misange]

Re : Comment interdire la mise à jour d’un TCD

Bonjour @ tous

Tu peux essayer ceci, à mettre par exemple dans l'événement activate de la feuille contenant le TCD (ou dans le workbook open que tu distribues)

Set pt = ActiveSheet.PivotTables("PivotTable1") 
    pt.ManualUpdate = False

ou bien
pt.PivotCache.EnableRefresh = False

 

[Sebast]

Re : Comment interdire la mise à jour d’un TCD

Bonjour JCGL, bonjour Misange,

Dugenou : peine perdue de penser que les gens ne mettront pas à jour à l'ouverture ...
JCGL : ce sera un peu lourd de créer un .pdf et de diffuser le pdf aux uns et le fichier normal aux autres

Misange : cette solution semble intéressante mais je bute sur un problème. Quand je copie ce bout de code, je reçois le message "variable non définie" devant Set pt = ActiveSheet.PivotTables("PivotTable1")
pour contrer le problème, je place au-dessus dim pt as pivotable mais ça plante encore car alors j'obtiens "impossible de lire la propriété Pivotables de la classe Worksheets"
As-tu une idée ?

Merci à tous

 

[sebcbienbzh]

Re : Comment interdire la mise à jour d’un TCD

une idée à tester peux être : changer les option de mise à jour et protéger le document par mot de passe.