Discussion :

[Marine38500]

Bonjour,

En essayant d’appliquer ma macro à un nouveau classeur je rencontre quelques difficultés.

Un message d’erreur apparait :

Erreur d’exécution ‘424’ : Objet requis

Voici ma macro :

Code :

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

1
2
3
4
5
6
ActiveWindow.SmallScroll Down:=-3
    With Worksheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
        "Prod. Hier. PG1")
        .Orientation = xlPageField
        .Position = 1
    End With

Pouvez-vous m’aider ?

Cordialement,

Marine.

[Gont64]

Bonjour,

C'est parce qu'il manque le nom de l'onglet ou se situe votre Tableaux Croisé dynamique :

Code :

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

1
2
3
4
5
6
ActiveWindow.SmallScroll Down:=-3
With Worksheets("nom de l'onglet").PivotTables("Tableau croisé dynamique4").PivotFields( _
"Prod. Hier. PG1")
.Orientation = xlPageField
.Position = 1
End With

Cordialement

[Marine38500]

Merci beaucoup !