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

Salut,

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

Code:

---

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

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+

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.

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+

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 ?

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:

---

1 2 3 4

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

---

A+

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

Code:

---

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

---

:roll:

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:

---

Workbooks("MonClasseur.xls").Select

---

Quand je met la ligne de code :

Code:

---

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 ?

Citation:

---

Envoyé par Scuriolus

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:

---

Workbooks("MonClasseur.xls").Select

---

---

remplace .Select par .Activate ... :wink:

Merci aussi pour ton aide bbil

Quand j'utilise ton code, jai le même type d'erreur pour la ligne suivante:

Code:

---

For Each Pt In Ws

---

oui désolé moi aussi j'ai oublié quelque chose :

Code:

---

For Each Pt In Ws.PivotTables

---

:oops:

ça y est, ça fonctionne.

Merci pour votre aide