par Raziel » 11 Juin 2003 à 11:07
Ex de code :sub Querydocumentundelete(Source As Notesuidatabase, Continue As Variant)dim colDoc as notesdocumentcollectionset colDoc = Source.documentsmsgbox "Nombre de documents à supprimer : " + cstr(colDoc.count)end sub
Raziel
L'administration est un lieu ou les gens qui arrivent en retard croisent dans l'escalier ceux qui partent en avance. [Georges Courteline]