Dans la section (Options) de la vue
Use "ViewUsage"
Dans le PostOpen de la vue
- Code : Tout sélectionner
Sub Postopen(Source As Notesuiview)
Call CollectUse(source)
End Sub
Créér une bibliothèque de scripts nommée ViewUsage
Sub CollectUse(OpenedView As NotesUIView)
'************************************************************************************************************************
'* DESCRIPTION: Ce script permet de journaliser les accès effectuer aux vues passées en paramètre
'* Ces vues sont supposées êtres inutilisées mais par précaution, une dernière valdiation a lieu avant de les supprimer
'* MODIFICATIONS:
'************************************************************************************************************************
Dim session As New NotesSession
Dim Currentdb As NotesDatabase
Dim CurrentView As NotesView
Dim CurrentViewName As Variant
Dim CurrentDbName As Variant
Dim UserName As Variant
Dim WhenUsed As String
Dim TrackingDb As New NotesDatabase( "", "" )
Dim TrackingDoc As NotesDocument
Set Currentdb = session.CurrentDatabase
Set CurrentView = OpenedView.View
CurrentDbName = Currentdb.Title
CurrentViewName = CurrentView.Name
UserName = session.CommonUsername
WhenUsed$ = Today()
Call TrackingDb.Open( session.currentdatabase.server, "MaBaseCourante.nsf" )
Set TrackingDoc = New NotesDocument( TrackingDb )
TrackingDoc.Db = CurrentDbName
TrackingDoc.View = CurrentViewName
TrackingDoc.User = UserName
TrackingDoc.WhenUsed = WhenUsed
TrackingDoc.Form = "UseTracker"
Call TrackingDoc.Save(True, False)
End Sub
Laisser ce code quelques semaines.
Si la base est inutilisée, utiliser un produit comme TeamStudio pour déterminer si une vue est appelée par du code script dans la base.
Pour ceux qui ne veulent pas dépenser :
http://www-10.lotus.com/ldd/bpmpblog.ns ... ent-finder
Par la suite, détruire la vue (Gardez en une copie pour vos précieux souvenirs)
JYR
