Boucle pour créer TCD
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 SubQuelqu'un aurait-il solution à mon problème ?
bonjour
on crée unTCD au clavier/souris une fois au début
puis durant des années, on clique droit Actualiser quand on veut l'actualiser.
pas de VBA
Bonjour,
Merci de joindre un fichier à ta demande.
Je ne vais discuter de l'utilité de la chose, mais il y aurait déjà beaucoup à dire sur la procédure.
Cdlt.
Bonjour,
Merci de joindre un fichier à ta demande.
Je ne vais discuter de l'utilité de la chose, mais il y aurait déjà beaucoup à dire sur la procédure.
Cdlt.
Bonjour Jean-Eric
Voici le fichier,
Cordialement
Re,
Créer des TCDs, c'est une chose, mais que doivent ils afficher ?
Cdlt.
Par la suite je compte afficher les données de différentes façon possible.
Le problèmes ne vient pas de là. Je souhaite juste réussir à ajouter à la suite des TCD même si ils sont vides
re
à quoi sert de créer des TCD "à la suite" ? surtout s'ils sont vides
avec clavier/souris, dans ton fichier mets tous les TCD dont tu as besoin, fais-les afficher les données. Tu sais faire. Et tu auras terminé.
Facile.
re
à quoi sert de créer des TCD "à la suite" ? surtout s'ils sont vides
avec clavier/souris, dans ton fichier mets tous les TCD dont tu as besoin, fais-les afficher les données. Tu sais faire. Et tu auras terminé.
Facile.
Je fait ces TCD par VBA, puisque par la suite je souhaite les supprimer ou les ré-ajouter à ma guise.
Re,
Ton fichier en retour (nettoyé des nombreux styles inutiles).
ALT F8, puis exécuter CreatePivotTables.
Je ne sais pas ce que tu veux faire, mais je pense que nous allons te revoir très rapidement.
A te relire.
Cdlt.