Microsoft 365 Actualisation automatique d'un TCD

Philippe17 à dit:

Bonjour à toutes et à tous,

J'ai créé un TCD dans la feuille (Paramètres), j'ai mis ce code dans les deux feuilles, Paramètre et tableau de bord.

VB:

Private Sub Worksheet_Activate()
     ActiveWorkbook.RefreshAll
End Sub

Mais, ça ne fonctionne pas, je dois réactualiser avec le bouton 'tout actualiser dans la barre d'outils, j'aimerais que l'orque. J'enregistre par le bouton formulaire ma feuille (Tableau de bord) données : Carburant et Entretiens s'actualise automatiquement dès que je clique sur enregistrement du formulaire, vous pouvez-m'aider svp ? Merci pour vos réponses,

Bonne journée à toutes et à tous,

Philippe

Cliquez pour agrandir...

ActiveWorkBook.RefreshAll

ActiveSheet.PivotTables("Activité_TCD").PivotCache.Refresh

Philippe17 à dit:

Bonjour GéGé-45550,

Merci pour votre réponse, j'ai essayé le code, mais j'ai un message d'erreur :

Regarde la pièce jointe 1196516

Cliquez pour agrandir...

Gégé-45550 à dit:

zQuel est le nom exact de votre TCD ?

Cliquez pour agrandir...

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("TCB_sous_catégories").PivotCache.Refresh
Range("B2").Select

End Sub

Cliquez pour agrandir...

Philippe17 à dit:

Oui au temps pour moi, j'ai confondu,

voici ma ligne, mais j'ai toujours le message d'erreur :

Cliquez pour agrandir...

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("TCB_sous_catégories").PivotCache.Refresh
Range("B2").Select

End Sub

Cliquez pour agrandir...

Philippe17 à dit:

Oui, en effet, c'était bien un problème de nom, donc voici mon code final :

D'accord, ça fonctionne, j'ai adapté à mon classeur test. Ainsi, quand je vais sur ma feuille (Paramètres) le Tableau s'actualise, mais lorsque je vais sur la feuille (Tableau de bort) et que je rentre une donnée par le bouton formulaire et que je valide par « enregistrer » ma feuille ou je me trouve ne s'actualise pas automatiquement.

Nouveau fichier joint

Cliquez pour agrandir...