Bonjour le forum,
Je requiert votre aide j'ai un petit souci avec une macro, je vous explique :
J'ai un graphique tiré d'un TCD qui m'affiche l'évolution du nombre d'incident par usine par mois. J'ai fait une macro simple pour changer automatiquement le filtre des mois du TCD selon le mois en cours. Cependant ça ne fonctionne pas.
J'ai du me planter quelque part
NB : je suis débutant en vba
Voici mon code :
Sub Moisencours()
Dim Moiscours
Sheets("OUTIL MATRICE").Activate
Moiscours = Range("Z3")
Selection.NumberFormat = "mm-mmm"
'
' Moisencours Macro
' Filtre le TCD de comparaison selon le mois en cours
'
Sheets("Comparaison Usines").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("MOIS").CurrentPage = Moiscours
Sheets("OUTIL MATRICE").Select
End Sub
Il m'affiche l'erreur au niveau du pivottables (le filtre du tcd donc)
Le Range Z3 est la cellule ou se trouve la formule aujourd'hui afin d'obtenir le mois en cours (le format est nécessaire pour que ça corresponde à la base de donnée du TCD).
Merci pour votre aide. Si je ne suis pas assez clair merci de me le dire.