Discussion :

[SuNn69]

Bonjour à tous

J'ai un souci avec un fichier, bizarrement lorsque je le duplique (copier/coller) pour en créer une nouvelle mise à jour, mes TCD gardent l'ancienne data source. Je m'explique :

Si je duplique le fichier A pour obtenir un fichier B, dans le fichier B mes TCD auront pour data source les données du fichiers A.

Ce problème est apparu avec la migration au bureau vers Office 365 mais bizarrement je n'arrive pas à le reproduire.

Merci d'avance pour votre aide

[QuestVba]

Bonsoir,

As-tu le même problème si tu fait un Enregistrer sous... ?

J'ai vu aussi un truc comme ceci mais je ne peux pas vérifier car je n'ai pas la bonne version :

Dans le "ruban" en haut, aller dans les onglets des outils du TCD
onglet "ANALYSE"
menu déroulant en dessous du nom du TCD à gauche pour sélectionner options.
Une boite de dialogue s'ouvre qui s'appelle "options du tableau croisé dynamique" : Il faut alors sélectionner l'onglet "Données" et décocher "actualiser les données lors de l'ouverture du fichier".

Il faudrait toujours faire une actualisation du TCD en plus.

[SuNn69]

Bonjour,

Merci pour votre réponse et dsl pour le retard, il va falloir que je vérifie mes configurations, je n'ai pas reçu de mail de réponse et j'ai eu du mal à retrouver mon post en navigant sur le site.

Bref, alors oui effectivement, même souci avec un sauvegarder sous...
La case "refresh data when opening the file" est déjà décochée...

Thanks

[SuNn69]

En attendant, j'ai listé sur une feuille les TCD (code trouvé sur un autre sujet) pour pouvoir les changer un à un :

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
Sub rafraichir()
 
Application.ScreenUpdating = False
 
Dim pvt As PivotTable
Dim sh As Worksheet
Dim i As Integer
 
i = 2
For Each sh In Worksheets
    'If sh.PivotTables.Count >= 1 Then
        For Each pvt In sh.PivotTables
            i = i + 1
            Cells(i, 2).Value = sh.Name
            Cells(i, 3).Value = pvt.Name
            Cells(i, 4).Value = pvt.SourceData
        Next pvt
    'End If
Next sh
Application.ScreenUpdating = True
End Sub

[SuNn69]

Up !