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