VBA intégrer formule mois en cours dans macro

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.

UP

Svp je sèche un peu d'aide ^^

bonjour

pas besoin de VBA

joins ton fichier, je vais te montrer

Rechercher des sujets similaires à "vba integrer formule mois cours macro"