OVH Cloud OVH Cloud

MàJ TCD dans un classeur partagé

2 réponses
Avatar
Apprenti.xls
Bonsoir à tous, nouvelle question qui me tarabuste depuis un petit moment
...

J'ai créé un TCD dans un fichier partagé, mais il m'est impossible de le
mettre à jour ... Je travaille sur la version 2000. Est-ce normal ? Sont-ce
les limites d'Excel, Peut-on y remédier et si oui comment ? Solutions VBA
acceptées.
J'ai bien une méthode qui consiste à sortir le TCD dans un autre fichier,
mais celà ne m'arrnage pas. Existe-t-il un code du genre :
ActiveSheet.EnableAutoFilter = True
mais pour les TCD, puisque celui-ci est pour les filtres. Ensuite, il
suffirait que je le place dans ThisWorkbook.

Merci d'avance à tous ceux qui prendront le temps de lire ce message et d'y
apporter leur concours.

2 réponses

Avatar
isabelle
bonjour Apprenti.xls,

désolé, cela fait parti des "Fonctionnalités non disponibles dans les classeurs partagés"

à moin de départager, actualisé le tcd, et repartager le claseur par macro
mais cela engage deux enregistrements du classeur.

Sub Macro1()
Application.DisplayAlerts = False
ActiveWorkbook.ExclusiveAccess
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
ActiveWorkbook.KeepChangeHistory = True
ActiveWorkbook.SaveAs Filename:="C:Mes documentsClasseur1.xls" _
, AccessMode:=xlShared
Application.DisplayAlerts = True
End Sub

isabelle



Bonsoir à tous, nouvelle question qui me tarabuste depuis un petit moment
...

J'ai créé un TCD dans un fichier partagé, mais il m'est impossible de le
mettre à jour ... Je travaille sur la version 2000. Est-ce normal ? Sont-ce
les limites d'Excel, Peut-on y remédier et si oui comment ? Solutions VBA
acceptées.
J'ai bien une méthode qui consiste à sortir le TCD dans un autre fichier,
mais celà ne m'arrnage pas. Existe-t-il un code du genre :
ActiveSheet.EnableAutoFilter = True
mais pour les TCD, puisque celui-ci est pour les filtres. Ensuite, il
suffirait que je le place dans ThisWorkbook.

Merci d'avance à tous ceux qui prendront le temps de lire ce message et d'y
apporter leur concours.




Avatar
Apprenti.xls
Bonjour Isabelle,

Merci pour cette procédure.
C'est bien ce que je craignais donc ... mais je ne peux la mettre en oeuvre,
car j'ai besoin de valider les données avant de partager de nouveau.
Merci encore.

À bientôt !

"isabelle" a écrit dans le message de news:

bonjour Apprenti.xls,

désolé, cela fait parti des "Fonctionnalités non disponibles dans les
classeurs partagés"

à moin de départager, actualisé le tcd, et repartager le claseur par macro
mais cela engage deux enregistrements du classeur.

Sub Macro1()
Application.DisplayAlerts = False
ActiveWorkbook.ExclusiveAccess
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
ActiveWorkbook.KeepChangeHistory = True
ActiveWorkbook.SaveAs Filename:="C:Mes documentsClasseur1.xls" _
, AccessMode:=xlShared
Application.DisplayAlerts = True
End Sub

isabelle



Bonsoir à tous, nouvelle question qui me tarabuste depuis un petit moment
...

J'ai créé un TCD dans un fichier partagé, mais il m'est impossible de le
mettre à jour ... Je travaille sur la version 2000. Est-ce normal ?
Sont-ce les limites d'Excel, Peut-on y remédier et si oui comment ?
Solutions VBA acceptées.
J'ai bien une méthode qui consiste à sortir le TCD dans un autre fichier,
mais celà ne m'arrnage pas. Existe-t-il un code du genre :
ActiveSheet.EnableAutoFilter = True
mais pour les TCD, puisque celui-ci est pour les filtres. Ensuite, il
suffirait que je le place dans ThisWorkbook.

Merci d'avance à tous ceux qui prendront le temps de lire ce message et
d'y apporter leur concours.