Vba intégrer formule mois en cours dans macro

Y compris Power BI, Power Query et toute autre question en lien avec Excel
C
Chibi78
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 7 juillet 2017
Version d'Excel : 2013

Message par Chibi78 » 7 juillet 2017, 07:45

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.
C
Chibi78
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 7 juillet 2017
Version d'Excel : 2013

Message par Chibi78 » 7 juillet 2017, 14:26

UP

Svp je sèche un peu d'aide ^^
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'659
Appréciations reçues : 249
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 7 juillet 2017, 15:42

bonjour

pas besoin de VBA :wink:
joins ton fichier, je vais te montrer
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message