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

Clarinette13006 Messages postés 6 Statut Membre -  
Clarinette13006 Messages postés 6 Statut Membre -
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

1 réponse

  1.
    Clarinette13006 Messages postés 6 Statut Membre
     
    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 :) :)
    0