Source d'un TCD

Bonjour tout le monde

Je fais encore une fois appel à votre précieuse aide

Je vous expose mon problème, j'ai un fichier Excel qui contient deux onglets, le premier est la table de données brutes, le second contient une dizaine de TCD allant se sourcer dans le premier onglet.

Je souhaite scinder ce fichier en mettant le premier onglet (qui contient la table de données brutes) dans un autre classeur afin d'alléger le fichier.

Le problème, c'est qu'il faut que je change la source de mes TCD (en indiquant le nouveau fichier).

Est ce que vous connaissez un moyen rapide de changer la source pour l'ensemble des TCD?

Mille merci par avance

Très bonne journée

Bonjour,

Avant tout, peux-tu :

1 -Noter la taille de ton fichier

2 - Travailler sur une copie du fichier.

3 - L'enregistrer au format xlsb (format binaire)

4 - Quitter Excel, noter la taille de ce nouveau fichier., le rouvrir

5 - Exécuter la procédure ci-dessous après l'avoir copiée dans un module standard.

Public Sub OptionsPT()
Dim ws As Worksheet
Dim pt As PivotTable
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        If ws.PivotTables.Count > 0 Then
            For Each pt In ws.PivotTables
                With pt
                    .SaveData = False
                    With .PivotCache
                        .RefreshOnFileOpen = True
                        .MissingItemsLimit = xlMissingItemsNone
                        .Refresh
                    End With
                End With
            Next pt
        End If
    Next ws
    ActiveWorkbook.Save
End Sub

6 - Quitter Excel et rouvrir le classeur.

A te relire pour tes commentaires.

Cdlt.