Actualisation TCD mais pas requête de connexion

Bonjour à tous,

J'ai l'habitude d'utiliser la macro suivante pour rafraichir l'ensemble de mes TCD

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

ThisWorkbook.RefreshAll

End Sub

Cependant, cette macro actualise également mes requêtes de connexion avec Sharepoint, je voudrai forcer cette macro et la limiter aux TCD.
Mes TCD s'appellent --> Tableau croisé dynamique1 à Tableau croisé dynamique6

Comment puis-je adapter ma macro pour ne pas faire un refreshAll mais forcer le refresh uniquement des TCD.

Par avance, merci de votre aide

Bonjour,

Certainement quelque chose comme ceci :

Dim Sheet as WorkSheet, Pivot as PivotTable
For Each Sheet in ThisWorkbook.WorkSheets
    For Each Pivot in Sheet.PivotTables
        Pivot.RefreshTable
        Pivot.Update
    Next
Next

Si jamais tes TCD ne sont que sur certaines feuilles et que tu ne veux pas boucler sur l'ensemble des feuilles du classeur, tu peux modifier la boucle.

Hello JoyeuxNoel,

Merci pour ton retour.
En effet, mes TCD sont tous sur la feuille excel qui s'appelle --> Tableaux indicateurs

Tu saurais me dire quelle valeur je dois changer dans ta macro pour éviter la boucle ?

Par avance, merci

J'imagine comme ceci :

Dim Pivot as PivotTable
  For Each Pivot in Sheets("Tableaux indicateurs").PivotTables
        Pivot.RefreshTable
        Pivot.Update
  Next

Est-ce que je fais fausse route en la saisissant comme ça ?
ça ne fonctionne pas, pour info

Oui en effet, il y a fausse route ;)

tu n'as pas de sub ici. C'était à mettre à la place de "ThisWorkbook.RefreshAll".

Ça ne te dispense pas du reste du code :

    Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    Dim Pivot as PivotTable
      For Each Pivot in Sheets("Tableaux indicateurs").PivotTables
            Pivot.RefreshTable
            Pivot.Update
      Next

    End Sub

sheets("Tableaux indicateurs") peut d'ailleurs être remplacé par activesheet j'imagine, puisque tu lances ton code à l'activation de cette feuille.

C'est parfait.

merci beaucoup ;)