DominoArea.org [Archive]

Bonjour,j'ai récupéré du code d'une base de la Sandbox.Ce code permet de mettre à jour l'agenda d'un personne suite à une demande d'absence.voici le code.Sub Click(Source As Button) Dim NotesSession As New NotesSession Dim workspace As New NotesUIWorkspace Dim Doc As NotesDocument Dim db As NotesDatabase Dim UIDoc As NotesUIDocument Dim CurDoc As NotesDocument Set CurDoc = workspace.CurrentDocument.Document Set db = NotesSession.GetDatabase("non serveur/org",CurDoc.Calendar(0)) Set doc = db.CreateDocument doc.form = "Appointment" doc.AppointmentType = "2" doc.Subject = "Congé" doc.StartDate = CurDoc.StartDate(0) doc.Duration = CurDoc.CalDays(0) doc.ExcludeFromView = "D" Set UIDoc = Workspace.EditDocument(True,doc)End SubCe code bloque au niveau du Getdatabase, il me ditDatabase serveur/org!!.nsf has not been opened yet.D'abord je comprend pourquoi il met les points d'exclamation ensuite j'ai un champs qui est le nom du demandeur et c'est sa base qui est censé être prise en compte, mais si je met le nom du champ, j'ai le même genre de message.Est-ce que qq'un pourrait m'aider? je ne capte pas grand chose en Lotus Script, j'ai regardé l'aide en ligne mais guère plus clair pour moi.Merci[%sig%]

BonjourLe rejet t'indique que la base donnée n'a pas été trouvée Si tu as mis ce code tel quel c'et normal car je suppose que tu n'as pas de serveur qui s'appele non serveur et que le chemin d'accès à la base n'est pas dans Curdoc.Calendar(0)Si tu regarde dans l'aide tu verras que tu dois passer en paramètres pour le getDatabase1/ le nom du serveur ou se trouve la base2/ le chemin d'accès complet à la base que tu veux ouvrir par exemple tu peux faire quelque chose comme celaserveur$ = "NomDuServeur"chemin$ = "C:\NomDuRepertoire\NomDuSousRepertoire\NomDeLaBase.nsf"Set db = Session.GatDataBase(serveur$,chemin$)si ce n'est pas clair dis le moi

Merci de l'explication;pb résolu en fait je n'ai pas vu un champ qui récupère les infos et qui s'appelle Calendar.Merci encore[%sig%]