Correspondance en lotusscript

[aer]

J' aimerais traduire ça en lotus script. J' ai essayé avec evaluate mais pas moyen de le faire fonctionner.nom = @Prompt ([OKCANCELEDITCOMBO] ;"Choix de l\' acteur" ; "Choisissez l\' acteur :" ; "" ; @Unique(@DbColumn("":"NoCache";@Subset(@DbName;1):@LeftBack( @Subset( @DbName ; -1) ; "\\" ) + "\\"+"suivi" + ".nsf";"V_famille";1) ))Merci de votre aide.

[Stephane Maillard]

Bonjour,Pourquoi ne pas faire un masque avec un champs qui à cette formule et l'ouvrir avec un Dialogbox ?Ensuite vous pouvez récupérer la valeur sélectionnée avec ublic Sub TestDialogBox() Dim Session As New NotesSession Dim db As NotesDatabase Dim ws As New NotesUIWorkspace Dim dlgDoc As NotesDocument Dim strRetour As String Dim vrtTemp as Variant On Error Goto Err_TestDialogBox ' Si une erreur survient on va se brancher sur ' la gestion d'erreur de la routine. Set db = Session.CurrentDatabase ' Utilise la base courrante Set dlgDoc = db.CreateDocument ' Fait un nouveau document dlgDoc.Champs = "" ' Met le champs qui nous intèresse à vide ' dans le nouveau document. vrtTemp = ws.Dialogbox("Masque_A_Utilise", True, True, True, True, False, False, "Titre de la boîte de dialogue", dlgdoc) ' Affiche la boîte de dialogue If vrtTemp Then ' Si vrtTemp est égal à True strRetour = dlgDoc.Champs(0) ' Affecte la valeur du champs à notre variable MsgBox strRetour ' Affiche la valeur de notre variable End If Exit Sub ' Sort de la routineErr_TestDialogBox: ' Affiche une boîte de dialogue avec le numéro d'erreur 'Str(Err)' et la ' description 'Error$' MsgBox "Erreur numéro: " & Str(Err) & Chr(10) & Chr(13) & "Description: " & Error$ End ' Arrete le programme.End SubCet exemple vous montre comment récupérer des informations dans un champs, Après sa modification dans une DialogBox.Ce qui est intéressant c'est qu'il n'est pas besoin d'enregistrer le document pour récupérer la valeur.Le champs qui est mis à vide dans le nouveau document n'est pas obliger d'avoir une existante physique, puisque Lotus Notes le mettra dans le document si celui-ci n'existe pas.[%sig%]