Discussion :

[Ben1325]

Bonjour à tous,

Dans le cadre d'un outils pour afficher différents indicateurs de performances provenant de plusieurs fichier Excel, je viens vers vous car j'ai un problème que je n'arrive pas à résoudre lors de l'actualisation d'un des fichier :

Le fichier en question contient différents graphiques dynamiques qui s'actualisent automatiquement quand ont choisis l'Item voulu dans le segment.

J'ai fait un code afin d'ouvrir le fichier, choisir un Item dans le segment désiré et de copier le graphique une fois celui ci actualisé avec les bonnes données.

Cependant, pendant l'actualisation des données, j'ai un message d'erreur qui apparait 6/7 fois et je dois le valider manuellement pour que la macro finisse de s'exécuter.



J'ai essayé les solutions tel que "Application.DisplayAlerts = False" ou "Sendvkey0" mais ça ne marche pas.


Ci dessous la partie de code avec le segment :
Pour info, choisis l'Item "Prépa" mais c'est l'Item "Obsolète" qui génère un message d'avertissement.

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
16
17
18
19
20
21
22
23
24
25
26
27
 
With ActiveWorkbook.SlicerCaches("Segment_SecteurResponsable")
 
            Application.DisplayAlerts = False
        .SlicerItems("a").Selected = False
        .SlicerItems("b").Selected = False
        .SlicerItems("c").Selected = False
        .SlicerItems("d").Selected = False
        .SlicerItems("e").Selected = False
        .SlicerItems("f").Selected = False
        .SlicerItems("g").Selected = False
        .SlicerItems("Obsolete").Selected = False
        .SlicerItems("h").Selected = False
        .SlicerItems("i").Selected = False
        .SlicerItems("j").Selected = False
        .SlicerItems("k").Selected = False
        .SlicerItems("Prépa").Selected = True
        .SlicerItems("l").Selected = False
        .SlicerItems("m").Selected = False
        .SlicerItems("n").Selected = False
        .SlicerItems("o").Selected = False
        .SlicerItems("p").Selected = False
        .SlicerItems("q").Selected = False
        .SlicerItems("r").Selected = False
        .SlicerItems("s").Selected = False
 
    End With

Avez vous une solution pour shunter ou valider ce message ?

Ps, je ne pourrai vous fournir le fichier Excel qui génère ce message.

D'avance merci.