[XL-2007] [XL-2010] PivotTables et Autoformat

[Puipui]

Bonjour à tous,

Je débute en VBA, et après de nombreuses recherches vaines je me décide à exposer mon problème ici en espérant trouver une réponse ou tout du moins des pistes...

Je souhaite réaliser une macro qui, idéalement, pour excel 2007-2010, décoche l'option "Ajuster automatiquement la largeur des colonnes lors de la mise à jour" à l'insertion d'un TCD.

Ou alors qui la décoche pour l'ensemble des TCD du classeur...

J'ai essayé de bidouiller un peu et j'obtiens ceci, qui ne fonctionne pas...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Dim Pt As PivotTable
Dim ws As Worksheet
 
    For Each ws In ThisWorkbook.Worksheets
         For Each Pt In ws.PivotTables
 
 
         PivotTables.HasAutoFormat = False
 
         Next Pt
 
    Next ws

Merci d'avance pout votre aide !

[mercatog]

Tu y étais presque

Code :

1
2
3
4
5
6
7
8
Dim Pt As PivotTable
Dim ws As Worksheet
 
For Each ws In ThisWorkbook.Worksheets
    For Each Pt In ws.PivotTables
        Pt.HasAutoFormat = False
    Next Pt
Next ws

[Puipui]

Merci beaucoup pour la réponse rapide !

J'ai copié le code

Code :

1
2
3
4
5
6
7
8
Dim Pt As PivotTable
Dim ws As Worksheet
 
For Each ws In ActiveWorkbook.Worksheets
    For Each Pt In ws.PivotTables
        Pt.HasAutoFormat = False
    Next Pt
Next ws

dans un module et cela marche sans problème

J'aimerais savoir s'il y a un moyen que la ligne

Pt.HasAutoFormat = False

s'effectue toute seule après chaque insertion de TCD, et agisse sur ce dernier.

Cela revient en fait à désactiver par défaut l'option Autoformat des PivotTables, mais je ne sais absolument pas comment faire pour arriver à ca.

J'espère ne pas poser trop de questions ...