Bonjour,

J'utilise le bout de code suivant pour rafraîchir les TCD de mon classeur:

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
Option Explicit

Sub Mise_En_Forme_KpiCx()

Dim pvt As PivotTable
Dim sh As Worksheet


For Each sh In Worksheets
        If InStr(1, sh.Name, "Analyse") <> 0 And InStr(1, sh.Name, " COR") <> 0 Then
            For Each pvt In sh.PivotTables
                pvt.RefreshTable
                Nouveau_Nom_TCD = sh.Name & "_TCD"
                pvt.Name = Nouveau_Nom_TCD
            Next pvt
        End If
    Next sh
J'ai une erreur 1004 sur la ligne en gras. La méthode RefreshTable de la classe PivotTable a échoué.
Je n'ai pas trouvé grand chose sur le net. Des idées?

D'avance merci.