Bonjour,
Je souhaite créer plusieurs TCD à la suite qui ont la même source de données. J'ai donc écrit une macro qui permet de faire cela et elle marche.
Mais mon problème c'est que ma macro ne marche que sur les feuilles vierge, lorsqu'il y a déja un TCD sur la feuille j'ai l'erreur d'éxécution '1004'.
Je souhaite qu'elle fonctionne aussi même si il y à déja un TCD sur la feuille.
Voici mon code :
Public Sub creerTCD()
Dim nomFeuille As String
Dim nomTCD As String
Dim Destination As String
Dim emplacement As String
Dim i As Integer
i = 2
j = 5
nomFeuille = ActiveSheet.Name
While i <= 5
nomTCD = "Tableau croisé dynamique" & i
emplacement = "!R10C" & j
Destination = nomFeuille & emplacement
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Données!R1C1:R1048576C77").CreatePivotTable _
TableDestination:=Destination, TableName:=nomTCD
i = i + 1
j = j + 5
Wend
End Sub
Quelqu'un aurait-il solution à mon problème ?