Actualisation de TCD après une effacement de données Résolu

Question

Bonjour, 

Je prépare mon nouveau plan comptable (pour une association), après l'aide de ce forum sur d'autres aspects, j'avance mais en ce moment je bloque sur le point suivant :
J'ai créé une macro effacement des données du journal de la comptabilité et je voudrais que lors du lancement de cette macro 1 j'efface mon journal (ce qui fonctionne), 2 actualiser tous mes TCD sur toutes les feuilles où ils sont écrits. 
ma macro effacement :
Sub effacer()
             Worksheets("Journal").Range("A7:C3500").ClearContents
             Worksheets("Journal").Range("E7:H3500").ClearContents
End Sub

et je voudrais y ajouter du code vba pour actualiser les TCD. 
J'ai trouvé pas mal de chose sur ce sujet, mais rien pour l'intégrer dans ma macro effacement.
Merci par avance de votre aide
CDL
Robby

Configuration: Windows Vista / Firefox 34.0

jordane45 · Answer

Bonjour,

Sub refreshAllTcd()
Dim oPivotTable As PivotTable
Dim Wkb As Workbook
Dim Sh As Worksheet
Set Wkb = ThisWorkbook
'on boucle sur toutes les feuilles du classeur
For Each Sh In Wkb.Worksheets
  'Si on est bien sur une feuille Excel (et non une feuille Graphique)
  If Sh.Type = XlSheetType.xlWorksheet Then
    'On actualise chaque TCD de la feuille
      For Each oPivotTable In Sh.PivotTables
        On Error Resume Next
        oPivotTable.RefreshTable
      Next oPivotTable
  End If
Next
End Sub

robbybasch · Answer

Merci pour la rapidité de la réponse. Et la macro fonctionne parfaitement, je n'ai pas de graphiques donc la 1ère fonctionne nickel. Faut-il quand même mieux prendre la 2ème?
Une question que je ne comprends pas, si j'ai fait une erreur j'en suis navré, pourriez m'expliquer " avant de poser une question lire la charte du site" afin que je ne reproduise pas cette erreur.
CDL
Robby

Actualisation de TCD après une effacement de données

2 réponses

Discussions similaires

Newsletters