Enlever "affichage personnalisé"

[Rick@]

Bonjour,

J'ai un fichier utilisé en "partage" par plusieurs personnes. le problème c'est que le fichier s'alourdit au fur et à mesure que des "affichages personnalisé" se crée. Il me faut les supprimer manuellement afin d'allèger mon fichier. Question: comment éviter la création de ces affichages inutile???

Merci à l'avance!

 

[tototiti2008]

Re : Enlever "affichage personnalisé"

Bonjour Rick,

Peut-être des pistes par là (pas testé) :
Modifier un classeur partagé - Excel - Office.com

 

[Rick@]

Re : Enlever "affichage personnalisé"

Merci Tototiti2008 mais même en décochant comme proposé, celà n'enpêche pas la création de nouvels "affichages personnalisés" qui alourdissent considérablement le fichier à chaque visite...

 

[JCGL]

Re : Enlever "affichage personnalisé"

Bonjour à tous,
Salut Toto,

Peux-tu essayer :

Option Explicit

Sub Del_CutomViews()
Dim x As Byte
On Error Resume Next
For x = 1 To ActiveWorkbook.CustomViews.Count
'MsgBox ActiveWorkbook.CustomViews.Count
ActiveWorkbook.CustomViews(x).Delete
Next x
End Sub

A + à tous

 

[Rick@]

Re : Enlever "affichage personnalisé"

Merci pour la macro, cependant elle doit être activée manuellement, aussi dans un fichier "partagé" les macros ne sont pas les "bienvenue..."

Je crois bien devoir faire avec...

Merci tout de même!!!

 

[JCGL]

Re : Enlever "affichage personnalisé"

Bonjour à tous,

Elle peut être évènementielle : se déclencher sur une action ou à l'ouverture du fichier...

A + à tous