vba : confirmation si erreur mise à jour tableau croisé dynamique

[europe2508]

Bonjour,
Je suis en train de faire une macro qui rafraichi automatiquement un tableau dynamique croisée

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

Je voudrai lancer un message si le tableau dynamique n'a pas reussi à ce mettre à jour du aux noms de champ qui ne sont pas valide
j'ai procédé de la facon suivante :

If ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh Then
Else
MsgBox " erreur de données, impossible de mettre à jour le tabeau dynamique"
End If

Mais cela m'indique toujours une erreur d'execution 1004 si le nom des champ du tableau dynamique croisé n'est pas valide
merci d'avance si quelqu'un à une solution à mon problème

 

[Guest]

Re : vba : confirmation si erreur mise à jour tableau croisé dynamique

Bonjour Europe,

On error resume next
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
If err.number>0 then
   MsgBox " erreur de données, impossible de mettre à jour le tabeau dynamique"
End if

A bientôt

 

[europe2508]

Re : vba : confirmation si erreur mise à jour tableau croisé dynamique

Merci beaucoup cela marche très très bien
Je présume que c'est la même démarche pour l'ensemble des tests que l'on veut faire pour éviter les messages d'erreurs