Changer source d'un TCD sans creer nouveau ... Fermé

Question

Bonjour les internautes !!

je suis depuis quelques jours sur une matrice VBA, et je rencontre une ultime problème pour optimiser la saisie .....

Alors avant de renoncer, car j'ai tout essayé, je vous expose mon pb 

J'ai une base de donner sur une feuille et sur une autre feuille j'ai un TCD, je voudrais que ma matrice changer ma source

Sachant que j'ai un nombre de ligne aléatoire selon ma base de donnees (nb colonne reste 17)
et sachant que j'ai déjà paramétré mon TCD donc c juste l'action de changer ma source et non pas créer nouveau ...


Voici ou mon code s'arrete ... il ne fonctionne pas ... j'en ai essayé plein..

Si vous avez une reponse une idée, svp n'hésitez pas :)

MERCI

Sub Bouton4_Clic()


Dim shdata As Worksheet
Dim shreefer As Worksheet

       
Dim DerLig As Long
DerLig = shdata.Range("A" & Rows.Count).End(xlUp).Row


shreefer.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
shdata.Range(Cells(1, 1), Cells(DerLig, 17)), Version:=xlPivotTableVersion14). _


End Sub

Clarinette13006 · Answer

Dim shdata As Worksheet
Dim shreefer As Worksheet
Dim shpoid As Worksheet
Dim shtc As Worksheet


Set shdata = ActiveWorkbook.Sheets("DATABASE")
Set shreefer = ActiveWorkbook.Sheets("REEFERS")
Set shpoid = ActiveWorkbook.Sheets("POID")
Set shtc = ActiveWorkbook.Sheets("TC")

Dim DerLig As Long

DerLig = Sheets("DATABASE").Range("A" & Rows.Count).End(xlUp).Row

Range1 = Sheets("DATABASE").Range("A1" & DerLig)



Sheets("REEFERS").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique3").ChangePivotCache _
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Range1" _
        , Version:=xlPivotTableVersion12)
        

Ca ne marche toujours pas...
Si quelqu'un a une idée :) :)

Changer source d'un TCD sans creer nouveau ...

1 réponse

Discussions similaires