Actualisation requête Excel en VBA
Bonjour à tous,
Je ne suis pas une spécialiste du développement mais c'est un domaine qui m'intéresse et dernièrement à titre perso on m'a demandé si je pouvais automatiser la saisie de bons afin d'avoir un suivi des stocks et des clients, je me suis donc lancé dans la création d'un fichier excel sur la base de formulaires et de tableaux de croisés dynamiques.
L’ensemble de mon VBA semble fonctionner, mais vue la complexité de mon tableau de données (feuille "SUIVI DES ENTREES & SORTIES") je n'arrive pas à créer des TCD en direct, j'ai donc décidé de passer par des requêtes mais je rencontre des problèmes dans leur actualisation, c'est pourquoi je m'adresse à vous.
Vous trouverez ci-joint le fichier en question dans lequel j'ai retiré les infos perso pour pouvoir le poster en public mais si une personne souhaite l'avoir en version officielle je peux le faire passer en privé.
Je ne suis pas sûre que le problème vienne du code puisque même en direct sur le fichier lorsque je fais actualiser tout ça à l'air de charger mais rien ne change.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Sub Actualisation_des_tableaux()
' Actualisation requêtes
ActiveWorkbook.Connections("Requête*-*Tableau4").Refresh
ActiveWorkbook.Connections("Requête*-*Tableau49").Refresh
ActiveWorkbook.Connections("Requête*-*Append1").Refresh
' ActualisationTCD Macro
ActiveWorkbook.Worksheets("SYNTHESE STOCKAGE").PivotTables("Tableau croisé dynamique4").PivotCache.Refresh
ActiveWorkbook.Worksheets("SYNTHESE TIERS STOCKAGE").PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
End Sub |
Merci d'avance pour votre aide.
