Discussion :

[zenix]

Bonjour à tous,

J'ai repris une macro me permettant d'empècher la modification des champs d'un Tableau Croisé Dynamique. (seule manière à ma connaissance de protéger la structure d'un TCD en laissant les listes déroulantes exploitables) Or, la macro ne fonctionne pas et le message d'erreur renvoyé est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ProtectionTCD()
 
Dim PFD As PivotField
Dim TCD As PivotFields
Set TCD = ThisWorkbook.Sheets("Synthèse Provisions").PivotTables("Tableau croisé dynamique2").PivotFields
For Each PFD In TCD
With PFD
.DragToData = False
.DragToHide = False
.DragToPage = False
.DragToRow = False
.DragToColumn = False
End With
Next PFD
 
End Sub

L'erreur renvoyée est la suivante :
Erreur d'Execution '1004' :
Erreur définie par l'application ou par l'objet.

Le macro s'interrompt au niveau du

Code :

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

.DragToData = False

Avez-vous déja été confronté au problème?
Quelle est la marche à suivre pour le résoudre?

Je vous remercie pour votre aide !!

Nicolas

[ouskel'n'or]

Selon la version d'office, il est possible que le nom de la propriété DragToData ait changé. Dans ce cas là, tu peux utiliser son index (que je ne connais pas ) pour que l'instruction soit valide quelque soit la version.
Je laisse la place à celui qui pourrait de donner cet index.
Bonne chance