Trouver les sources TCD

Bonjour,

Je récupère un fichier Excel sur lequel il y a beaucoup de feuilles avec de (très) nombreux TCD.

J'aimerais savoir s'il est possible de visualiser les sources de tous les TCD du fichier (sans devoir aller sur chaque TCD de chaque feuille et cliquer sur changer la source de données pour voir où il va taper).

Pourquoi ma demande ? parce que lorsque je clique sur "actualiser tout", il y a un TCD qui tape sur un fichier externe et celui-ci ne semble plus exister donc ca m'affiche un message d'erreur à chaque actualisation mais je ne sais pas quel TCD est concerné.

Merci beaucoup pour votre aide !

Bonjour

Avec un Onglet Infos

Adapter si plus de 100 TCD

Option Base 1
Sub Liste_TCD()
Dim Liste()
Dim x As Integer
ReDim Liste(100, 3)
x = 1
For Each SH In ThisWorkbook.Worksheets
    For Each Pt In SH.PivotTables
        x = x + 1
        Liste(x, 1) = SH.Name
        Liste(x, 2) = Pt.Name
        Liste(x, 3) = Pt.SourceData
    Next Pt
Next SH

If x > 1 Then
    Liste(1, 1) = "ONGLET"
    Liste(1, 2) = "TCD"
    Liste(1, 3) = "Source"
End If

With Worksheets("Infos")
    .Columns("A:C").Delete
    .Range("A1:C" & x) = Liste
    .Columns("A:C").EntireColumn.AutoFit
    .ListObjects.Add(xlSrcRange, Range("A1:$C" & x), , xlYes).Name = "Liste"
End With

End Sub

Un ENORME merci ! Vous êtes très doué car ça fonctionne du tonnerre !

Rechercher des sujets similaires à "trouver sources tcd"