Discussion :

[puledro]

Bonjour à tous,

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

Code :

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

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.

[joe.levrai]

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 :

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

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