Discussion :

[finesse20]

Bonjour à tous,

Voici mon problème :
J'ai une interface dans mon fichier access. Lorsque je clique sur un bouton, il ouvre un fichier Excel et y envoie toutes mes données (ce sont des tableaux croisés dynamiques). Le problème est qu'à l'ouverture du fichier, Excel n'actualise pas les données
J'aimerai pouvoir en VBA (sous access) parcourir toutes les feuilles de mon classeur Excel et actualiser tous les tableaux dynamiques.

Comment puis- je faire?

[mulanzia2003]

Voici un exemple que j'utilise sous excel pour raffraichir mon tableau croisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

[SfJ5Rpw8]

tiens voilà pour le principe, reste à modifier la ligne Set w=...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim W As Excel.Workbook
 Dim s As Excel.Worksheet
 Dim pt As Excel.PivotTable
 Set W = ActiveWorkbook
 
 For Each s In W.Worksheets
  For Each pt In s.PivotTables
   pt.PivotCache.Refresh
   Next
 Next
 Set W = Nothing
 Set s = Nothing
 Set pt = Nothing
End Sub