Créer autant de document que de personnes dans le carnet d'a

[Dom]

Bonjour tout le monde,Je souhaiterai, à partir d'un masque qui contient Nom Prénom et un champ Lecteur qui contiendra le nom prénom, créer une routine (ls ? Agent ?) qui va me créer les documents automatiquement en remplissant les champs à l'aide de tous mes utils du carnet d'adresse.A la fin du programme, j'aurais donc tous mes documents "Agents" avec leur nom prénom et un champ "Lecteur" qui contient l'agent également.Merci de votre aide,

[Dom]

C'est dans une base différente que celle du carnet d'adresses que je souhaite crééer les documents, mais sur le même serveur Notes

[CED]

Il faut que aille lire tout les docs de la vue "People" du names.nsf.Le champ "Firstname" correspond au prénom et le champ "Lastname" correspond au nom...

[CED]

Sub Initialize Dim S As New NotesSession Dim Db As NotesDatabase Dim DbName As NotesDatabase Dim Doc As NotesDocument Dim DocName As NotesDocument Dim VName As NotesView Set Db = S.CurrentDatabase Set DbName = S.GetDatabase(Db.server, "names.nsf") Set VName = DbName.GetView("People") Set DocName = VName.GetFirstDocument Do While Not DocName Is Nothing Set Doc = Db.CreateDocument Doc.Form = "Identite" Doc.Nom = DocName.Lastname(0) Doc.Prenom = DocName.FirstName(0) Call Doc.Save(True,False) Set DocName = VName.GetNextDocument(DocName) Loop End SubJ'ai aussi créer un masque ("Identite") avec deux champs ("Nom" et Prenom")Voilà....Pour le champ lecteur utilise la classe NotesItem....

[Dom]

OK,Je vais essayer tout ça.Merci beaucoup.