mauvaise déclaration

[Stephane Maillard]

Re,En tout cas dur dur de revenir en arrière.[%sig%]

[Raziel]

D'accord avec toi... Ca fais des années que j'ai pas utilisé cette version

[asx9]

pendant que je vous tiens, j'ai un autre problème. je veux compter le nombre de doc d'une vue. voici mon agent (dans sub initialize)dim session as new notessessiondim db as notesdatabasedim vue as notesviewdim doc as notesdocumentdim total as longset db = session.currentdatabaseset doc = vue.getfirstdocumenttotal = 0while not doc is nothingtotal = total + 1set doc = vue.getnextdocument(doc)msgbox cstr(total)wendinutile de vous dire que ça ne marche pas

[Raziel]

Ouais, t'as bcp plus simpleDim session as new notessessiondim db as notesdatabasedim vue as notesviewdim colEntry as notesViewEntryCollectionset db = session.currentdatabaseset vue = db.getview("($All)")set colEntry = vue..AllEntriesmsgbox cstr(colEntry.count)

[Raziel]

Ouos, j'ai oublié que tu étais en 4.6Essai plutôt cela :dim session as new notessessiondim db as notesdatabasedim vue as notesviewdim doc as notesdocumentdim total as integerset db = session.currentdatabaseset vue = db.getview("$All")set doc = vue.getfirstdocumenttotal = 0while not doc is nothingtotal = total + 1set doc = vue.getnextdocument(doc)wendmsgbox cstr(total)

[asx9]

j'ai toujours le même message d'erreur: Object variable not setça veut dire quoi?

[Stephane Maillard]

Normalement celui ci devrait tourné :Function NbrDocDansVue(vue As NotesView) As Integer Dim doc As NotesDocument Dim compteur As Integer Set doc = vue.GetFirstDocument While Not doc Is Nothing compteur = compteur + 1 Set doc = vue.GetNextDocument(doc) Wend NbrDocDansVue = compteurEnd FunctionPar contre comme tu lis la vue de long en large, la routine devient longue si tu as pas mal de document dans ta vue.[%sig%]

[Raziel]

Tu as bien remplacé la $All de la ligne set vue = db.getview("$All")par le nom de la vue que tu liste ?J'ai essayé le code est il fonctionne

[asx9]

ok ça marche!! (pour le compteur)merci