Microsoft 365 Actualisation automatique d'un TCD

[Philippe17]

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.

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

 

[Gégé-45550]

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.

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

Bonjour,
si votre TCD s'appelle par exemple Activité_TCD, essayez de remplacer :

ActiveWorkBook.RefreshAll

par :

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

Cordialement,

 

[Philippe17]

Bonjour GéGé-45550,

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

 

[Gégé-45550]

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

Quel est le nom exact de votre TCD ?

 

[Philippe17]

Dans VBAProjet Feuil1(TCD)

 

[Gégé-45550]

zQuel est le nom exact de votre TCD ?

Regardez ici :

 

[Philippe17]

Oui au temps pour moi, j'ai confondu,

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

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

End Sub

 

[Gégé-45550]

Oui au temps pour moi, j'ai confondu,

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

c'est bien "TCB_sous_catégories" et non "TCD_sous_catégories" ?

 

[Philippe17]

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

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

End Sub

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

 

[Gégé-45550]

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

Chez moi, ça marche normalement !

 

[Philippe17]

Oui, mais quand je suis sur la feuille « Tableau de bord « et que j'enregistre une donnée avec le formulaire et que je reste sur cette feuille, elle ne s'actualise pas ! je dois ouvrir la feuille Paramètres et que je revienne sur la feuille Tableau de bord pour que ça s'actualise.

 

[JLR67]

Salut Philippe

Je te propose de mettre la formule suivante dans ta commande du bouton d'enregistrement, ce qui permet de rajouter des TCD ( qui s'actualiseront automatiquement) sans devoir modifier la macro.

Dim chPivot As PivotCache
For Each chPivot In ActiveWorkbook.PivotCaches
chPivot.Refresh
Next chPivot
Bonne soirée

JLR

 

[Gégé-45550]

Oui, mais quand je suis sur la feuille « Tableau de bord « et que j'enregistre une donnée avec le formulaire et que je reste sur cette feuille, elle ne s'actualise pas ! je dois ouvrir la feuille Paramètres et que je revienne sur la feuille Tableau de bord pour que ça s'actualise.

Le TCD est dans la feuille Paramètres et il est bien actualisé chaque fois qu'on visite cette feuille..
Je ne comprends pas ce que viens faire la feuille Tableau de bord dans l'histoire de l'actualisation du TCD ?

 

[Philippe17]

Bonjour Gégé et JRL,

Pour répondre en premier à GéGé, sur le tableau de bord, il y a une cellule Carburant et une cellule Entretiens, ces cellules ne s'actualisent pas, obliger d'aller sur la feuille Paramètre et de revenir dessus pour que l'actualisation,
Pour JRL, je vois très bien le code oui et je le comprends, mais pareil, ça ne fonctionne pas sur la feuille tableau de bord.
Bonne journée à toutes et à tous,

Philippe

 

[Philippe17]

Re,
Excusez-moi, ça fonctionne bien pour JRL, dans mon formulaire, je me servais pour les tests que de la modification et non enregistrer une nouvelle entrée dans mon journal, j'ai copié le code dans « modifier » et tout fonctionne, merci pour votre aide à tous les deux,

Excellente journée à toutes et à tous avec un beau soleil

Philippe