Discussion :

[Access Newbie]

Bonjour à tous,

J'ai un problème pour cacher un champ d'un tableau croisé dynamique.
Je me suis servi de l'enregistreur de macro qui m'a généré ceci :

Code :

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

1
2
    Sheets("Feuil1").PivotTables("SimulSansHypothese").PivotFields( _
        "Somme de nar unit c.").Orientation = xlHidden

Mon tableau s'appelle "SimulSansHypothese" et le champ que je veut cacher s'appelle "NAR unit C." (je fais une somme, d'où le nom du champ)

Notez que j'utilise exactement le même code sur d'autres champs (qui ne sont pas calculés) et que tout se passe très bien. Je me demande si ce ne serait pas lié au fait que le champ soit calculé.
Notez aussi que si je remet le champ dans le tableau croisé et que je relance la macro précédemment citée, l'erreur 1004 est générée ...

J'ai également essayé ceci :

Code :

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

1
2
3
4
5
6
Set pvtTable = ActiveSheet.PivotTables("SimulSansHypothese")
 
For Each pvtField In pvtTable.DataFields
    ActiveSheet.PivotTables("SimulSansHypothese").PivotFields(pvtField.Name). _
        Orientation = xlHidden
Next pvtField

Mais l'erreur est toujours la même.

L'erreur générée est la suivante :
1004 : Impossible de définir la propriété orientation de la classe pivotfield.

Avez-vous une idée pour passer outre ce pitit problème ?

Merci d'avance

[pgz]

Bonjour.

Juste quelques remarques. Sans modifier véritablement le code, il me paraît plus correct de l'écrire

Code :

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

1
2
3
4
5
Set pvtTable = Application.Thisworkbook.Sheets("NomFeuille").PivotTables("SimulSansHypothese")
 
For Each pvtField In pvtTable.DataFields
    pvtField.Orientation = xlHidden
Next pvtField

Ensuite avec ce code, tu supprimes tous les champs de données. C'est bien ce que tu veux?

Sinon ce genre d'erreur peut se présenter si la feuille est protégée, ou si le TCD n'a pas assez de place.

Cordialement,

PGZ

[Access Newbie]

Bonjour et merci d'avoir pris le temps de me répondre

Code :

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

1
2
3
4
5
Set pvtTable = Application.Thisworkbook.Sheets("NomFeuille").PivotTables("SimulSansHypothese")
 
For Each pvtField In pvtTable.DataFields
    pvtField.Orientation = xlHidden
Next pvtField

Je viens d'essayer avec ce code, mais l'erreur est exactement la même.

Ensuite avec ce code, tu supprimes tous les champs de données. C'est bien ce que tu veux?

Oui, tout a fait.

Sinon ce genre d'erreur peut se présenter si la feuille est protégée, ou si le TCD n'a pas assez de place.

Je vais essayer cette piste.

Merci

[Access Newbie]

J ai trouvé une pseudo solution : plutot que de cacher le champ ... je le supprime ...

Code :

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

Sheets("Construction Simulation").PivotTables("SimulSansHypothese").CalculatedFields("MonChamp").Delete

(c'est pas terrible, çela nécessite de recréer les champs à chaque fois, mais bon ca marche et c'est bien le principal)