XL 2019 Suppression d'un Pop Up

pierrelcq

XLDnaute Junior
Bonjour,

J'utilise des TCD, ils arrivent parfois qu'ils s'écrasent et donc une fenêtre de pop up apparait :

" XXX contient déjà des données. Voulez-vous les remplacer ? "

Je souhaiterai ne plus voir apparaître ce pop-up ou alors que la réponse soit définie en "non" automatiquement.

Je vous souhaite une très belle journée.

Merci

Pierre
 

pierrelcq

XLDnaute Junior
Bonjour Shinozak,

C'était en effet ma première idée d'utiliser ce code :

application.displayalerts=false

Après pour le coup, cela va me désactiver l'ensemble des alertes, je pensais qu'on aurait pu cibler ce message précisément.

Merci pour ton aide
 

shinozak

XLDnaute Occasionnel
Il te suffit de remettre les alertes après l'actualisation.

VB:
Sub test()

Application.DisplayAlerts=False

'Ton tcd a actualiser'
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

Application.DisplayAlerts=True
End sub
 

pierrelcq

XLDnaute Junior
Hmm, ton code était parfait mais je me suis rendu compte finalement que c'était le fait de cliquer sur "non" lorsque le pop up " XXX contient déjà des données. Voulez-vous les remplacer ? " apparaissait qui me continue de mettre à jour mes TCD.
Dans ce cas précis où je désactive le pop up alors je n'ai plus de mise à jour.
Merci pour ton aide!
 

Statistiques des forums

Discussions
292 782
Messages
1 926 191
Membres
182 947
dernier inscrit
LOKID