Discussion :

[loulinho]

Bonjour

J’aimerais updater le TCD ci-dessous dans mon onglet de façon à ce qu’il sélectionne la semaine suivante automatiquement. C'est un TCD fixe qui ne change pas mis à part le champ filtré par semaine et qui avance d'une semaine à chaque éxécution de macro.



J’ai fait la formule suivante

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Weekly()
 
Dim i As Integer
 
With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields( _
        "Week").PivotItems.Value
        i = PivotItems +1 
        End With
 
End Sub

Ma formule ne marche pas je pense que ma variable n’est pas bien définie. Pourriez-vous m’éclairer sur le sujet svp ?