[VBA][EXCEL] Mise à jour de TCD en macro

**Scuriolus** · 07/12/2005, 09h55

Salut,

Avec la macro suivante, je souhaite ouvrir un classeur qui contien des tableaux croisés dynamiques.

Code :

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

Workbooks.Open FileName:="\\SERVEUR\test\docu.xls", UpdateLinks:=3

Mais les tableaux ne sont pas mis à jours lors de l'ouverture.
Dans les propriétés des tableaux, la case "Actualiser lors de l'ouverture" est bien cochée.

Si quelqu'un peut m'éclairer ?

Merci

**ouskel'n'or** · 07/12/2005, 10h26

Ton classeur comporte-t-il des liaisons ? Si oui, les acceptes-tu à l'ouverture ? Tes TCD se mettent-ils à jour avec F9 ?
Juste pour faire avancer le Schmilblic...

A+

**Scuriolus** · 07/12/2005, 10h46

Oui, le classeur comporte des liaisons.
Quand j'appuis sur F9, le tableau ne se met pas à jours.
Par contre, quand je fais un clic droit sur celui-ci et que je fais "actualiser les données", il se met bien à jours.

**ouskel'n'or** · 07/12/2005, 11h54

Donc, tu as la possibilité de demander la mise à jour de ton TCD à l'ouverture du classeur dans la macro "Sub Workbook_Open()"
Une macro, ça t'irait ? (Précise ta version VBA ou Excel)

A+

**Scuriolus** · 07/12/2005, 12h02

Merci pour ton aide.
J'utilise Excel 97SR-1
Il faudrait que cela le met à jours que lorsque je l'ouvre avec ma macro et pas quand ont l'ouvre directement.
Est-ce possible ?

**ouskel'n'or** · 07/12/2005, 12h17

Donc, si je comprends bien, tu as une macro dans un classeur1, qui ouvre le classeur2 contenant le TCD, et tu voudrais mettre à jour le TCD à ce moment là, non quand tu ouvres directement le classeur2 ?

Est-bien ça ?

Je te passe déjà le code pour raffraichir les données

Code :

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

1
2
3
4
 
    Workboks(NomFich).select
    Worksheets(NomFeuil).select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable

A+

**SfJ5Rpw8** · 07/12/2005, 12h22

tiens pour "raffraichir" les données de tous les TCD du classeur actif :

Code :

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

1
2
3
4
5
6
7
8
9
Sub MajTCD()
 Dim Ws As Worksheet
 Dim Pt As PivotTable
 For Each Ws In ActiveWorkbook.Worksheets
   For Each Pt In Ws
     Pt.RefreshTable
   Next
 Next
End Sub

**Scuriolus** · 07/12/2005, 13h01

C'est bien ça

La ligne suivante de ton code me renvois l'erreur "Propriété ou méthode non gérée par cet objet"

Code :

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

Workbooks("MonClasseur.xls").Select

Quand je met la ligne de code :

Code :

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

Workbooks.Open FileName:="\\SERVEUR\test\MonClasseur.xls"

qui suffirait à faire mon bonheur, il me met bien la boite de dialogue pour me demander si je veux mettre à jour avec les liaison...et après un clic sur OK, il ne met rien à jours ?