Discussion :

[Invité]

Bonjour,

La macro que j’ai créé copie plusieurs feuille dans nu nouveau fichier Excel :
• 1er onglet : « Balance » qui mon tableau de base
• 2eme onglet : 2 TCD
• 3eme onglet : 1 TCD
• 4eme onglet : 2 TCD
Je souhaiterais que la macro mettre à jour la nouvelle plage de données (PivotCaches) car celui-ci sera celui du nouveau fichier créé, mais aussi car la « Balance » aura plus ou moins de lignes a traiter.

Le code ci-dessous ne fonctionne pas, pouvez m’aider SVP ?

Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub miseAJourTCD()
 
Dim plageDonnees As Range
Dim nomFichier As String
Dim TCDRefresh As String
Dim TCD As PivotTable
 
Dim i As Integer
 
nomFichier = ActiveWorkbook.Name
 
Set plageDonnees = Workbooks(nomFichier).Worksheets("Balance").Range("A5:AF" & ligneBalance)
 
For i = 1 To Worksheets.Count
 
    For Each TCD In Worksheets(i).PivotTables
 
        ActiveSheet.PivotTables(TCD).ChangePivotCache _
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=plageDonnees, Version:=xlPivotTableVersion14)
 
        TCD.RefreshTable
 
    Next
Next i
 
End Sub

[78chris]

Bonjour

Met ta source sous forme de tableau et indique ce tableau (structuré) comme source des TCD : tout sera automatique sans code...

A défaut on peut utiliser une plage nommée avec DECALER et utiliser le nom comme source de TCD

[Invité]

"Met ta source sous forme de tableau et indique ce tableau (structuré) comme source des TCD : tout sera automatique sans code…"

Désolé, mais comment faire pour que la source ne soit plus la feuille "Balance" du fichier "Macro" mais celui de la feuille "Balance" dans la feuille nouvellement créée, via un "déplacer-Coller" ?

[78chris]

RE

Pourquoi copier des feuilles et ne pas utiliser une copie du fichier avec juste copie des données dans le tableau balance en remplacement des anciennes données ?