Discussion :

[ted the Ors]

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.

[joe.levrai]

Bonjour,

les feuilles ne sont pas protégées ?

et pour éviter de boucler sur les autres classeurs éventuellement ouverts dans l'instance, il est préférable d'ajouter la filiation ThisWorkbook sur ta collection Worksheets.
(j'ai un doute sur le fait que Worksheets va se rattacher à ActiveWorkbook ou à Application au global )

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
Option Explicit
 
Sub Mise_En_Forme_KpiCx()
Dim Pvt As PivotTable
Dim Sh As Worksheet
 
For Each Sh In ThisWorkbook.Worksheets
    If InStr(1, Sh.Name, "Analyse") <> 0 And InStr(1, Sh.Name, " COR") <> 0 Then
        For Each Pvt In Sh.PivotTables
            Pvt.RefreshTable
            Pvt.Name = Sh.Name & "_TCD"
        Next Pvt
    End If
Next Sh
 
End Sub

[Marc-L]

Salut Joe !

Extraits de l'aide VBA de Worksheets :

« Pour un objet Application, cette propriété renvoie une collection Sheets
qui représente toutes les feuilles de calcul contenues dans le classeur actif. »

« Lorsqu'elle est utilisée sans identificateur d'objet, cette propriété renvoie toutes les feuilles de calcul dans le classeur actif. »

Donc Worksheets = Application.Worksheets = ActiveWorbook.Worksheets …

Ce que l'aide ne dit pas, si le code est placé dans le module ThisWorkbook,
l'instruction Worksheets seule se réfère à lui et non pas au classeur actif !

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[ted the Ors]

Merci pour le début de réponse.

Le classeur n'est pas protégé. J'avais trouvé une solution en ce sens sur un site anglophone, j'ai omis de le préciser.
En revanche, le classeur possède des liaisons. Peut-être une piste? Ou une référence manquante?

Pour l'affiliation, c'est rajouté. Mais cela ne résout malheureusement pas le problème.

[ted the Ors]

Bonjour,

C'est résolu.
En fait, j'ai essayé de mettre à jour le TCD manuellement et il y avait un problème dans les données qu'il utilise. En effet, précédemment dans le code, j'avais mis à jour la feuille contenant ces données et cette mise à jour avait supprimé les intitulés de colonnes. De fait, la mise à jour du TCD ne peut pas se faire vu qu'Excel ne trouve plus les données.

Moralité: dans la mesure du possible, toujours penser à tester manuellement ce que l'on veut faire et qui ne fonctionne pas avec notre code VBA.

Merci à tous pour votre aide.

Bonne journée.