Actualisation de TCD après une effacement de données
Résolu
robbybasch
Messages postés
100
Date d'inscription
Statut
Membre
Dernière intervention
-
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention -
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 :
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
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
A voir également:
- Actualisation de TCD après une effacement de données
- Fuite données maif - Guide
- Effacer les données de navigation sur android - Guide
- Tcd excel - Guide
- Effacement blanco - Télécharger - Divers Utilitaires
- Pourquoi effacer les données d'une application - Guide
2 réponses
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
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
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
Salut,
Prend le code que tu veux, les deux fonctionnent. C'est juste un point de détail.
" avant de poser une question lire la charte du site"
Est la signature (message qui fait automatiquement partie de toutes les réponses) de Jordane45. Donc pas nécessairement destiné à toi.
Par contre, si tu n'as pas lu notre charte, je t'invite à le faire... ça peut toujours servir.
A+
Prend le code que tu veux, les deux fonctionnent. C'est juste un point de détail.
" avant de poser une question lire la charte du site"
Est la signature (message qui fait automatiquement partie de toutes les réponses) de Jordane45. Donc pas nécessairement destiné à toi.
Par contre, si tu n'as pas lu notre charte, je t'invite à le faire... ça peut toujours servir.
A+
Bonjour,
Les "deux" fonctions sont identiques.. sauf que la première faisait une vérification supplémentaire.. complètement inutile.
Donc prend la seconde.
Pour ce qui est de la "charte" .. c'est ma signature ... aucun rapport avec ce que tu as fais... (elle s'affiche sur tous mes messages) .
:-)
EDIT : Uniquement sur mes REPONSES .. pas dans les commentaires
Les "deux" fonctions sont identiques.. sauf que la première faisait une vérification supplémentaire.. complètement inutile.
Donc prend la seconde.
Pour ce qui est de la "charte" .. c'est ma signature ... aucun rapport avec ce que tu as fais... (elle s'affiche sur tous mes messages) .
:-)
EDIT : Uniquement sur mes REPONSES .. pas dans les commentaires
Sauf erreur de ma part que tu voudras bien relever, la déclaration associée au code , empêche de boucler sur les feuilles de type Graph. Non?
désolé.. à vouloir être "trop" prudent... on est redondant...
Le bon code est donc :
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 'On actualise chaque TCD de la feuille For Each oPivotTable In Sh.PivotTables On Error Resume Next oPivotTable.RefreshTable Next oPivotTable Next End SubMerci Pika ;-)
A+
Et...
Bon réveillon, bonne nouvelle année à toi!
( et moi j'en fou pas une... arghh.. mes chevilles enflent...:-) )
Bon réveillon à toi aussi et bonne année ^^