Bonjour,

Lorsque je veux créer un tableau croisé dynamique avec vba excel 2010, j'ai le message: "Voulez-vous remplacer le contenu des cellules de destination ?".

Comment faire en vba pour que la question ne se pose pas et, qu'effectivement le contenu soit remplacé ?

J'ai codé :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sheets("CONSO_DONNEES").Activate
     ActiveSheet.PivotTables("MonTCDH").PivotSelect "", xlDataAndLabel
     Selection.Clear
 
     MsgBox "Suppression réalisée !"
 
     ' Création du tcd des heures restantes
 
     ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
     "DONNEES!A3:P" & lig).CreatePivotTable _
     TableDestination:="CONSO_DONNEES!R3C1", TableName:="MonTCDH", _
     DefaultVersion:=xlPivotTableVersion10
Julien.