MAJ de TCD par VBA

Bonjour à tous,

Je souhaite mettre à jour un TCD à l'aide d'une macro. J'utilise le code suivant :

Code:

---

1 2 3 4

Feuil10.PivotTables("Tableau croisé dynamique46").PivotFields("Invoice/RR FY").ClearAllFilters Feuil10.PivotTables("Tableau croisé dynamique46").PivotFields("Invoice/RR FY").CurrentPage = Feuil22.Range("G12").Value Feuil10.PivotTables("Tableau croisé dynamique46").PivotFields("Invoice/RR Month").ClearAllFilters Feuil10.PivotTables("Tableau croisé dynamique46").PivotFields("Invoice/RR Month").CurrentPage = Feuil22.Range("G14").Value

---

Dans la Feuil22, je dispose de deux informations : L'année en G12 et le mois en G14.

Je filtre ainsi dans le TCD la période que je souhaite pour obtenir un montant en Euro.

Le hic est qu'en l'absence de données sur la période que je souhaite, cela ne marche pas (et pour cause la période n'est pas affichée dans le filtre du TCD) et qu'Excel me retourne le code erreur 1004.

Mon besoin dans ce cas-là est simplement de savoir que le montant est égal à zéro.

Merci par avance.

Bonjour,

j'utilise la méthode pas orthodoxe par défaut pour ce type de cas : gestionnaire d'erreur

voici un exemple que tu pourrais adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

[....]   On Error GoTo handler ' si le code plante sur la ligne ci-après, c'est forcément que la date saisie dans l'invite n'existe pas dans le TCD, je détourne donc la macro vers un message d'erreur ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Jours").PivotItems(Datte).Visible = True On Error GoTo 0 ' la ligne à problème étant passé, je supprime la gestion spécifique d'erreur, placée précédemment     [...] handler:   MsgBox ("Vous avez saisi une date qui n'est pas présente dans le TCD.")   End Sub

---