Bouton en LS (Urgent !!!!!!!)

[Nico (débutant)]

Bonjour,J'ai ce bouton qui doit me mettre la date et le nom d'utilisateur dans le champ SuiviContacts. Problème, ca ne me met que la date. Pouvez vous m'aider à mettre le UserName avec ?De plus, j'aimerais que à chaque fois que je clique sur le bouton, il me fasse un retour à la ligne pour que ce soit plus lisible.Voilà le code : (Lotus Script)Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Dim dateTime As New NotesDateTime( "" ) Dim user As String user = UserName dateTime.LSLocalTime = Now Call uidoc.FieldAppendText( "SuiviContacts", Cstr(dateTime.DateOnly) & " - " & Cstr(user))End SubMerci pour votre aide

[Raziel]

Salut,Essai un truc du genreSub Click(Source As Button)dim session as new notessessionDim workspace As New NotesUIWorkspaceDim dateTime As New NotesDateTime( "" )Dim uidoc As NotesUIDocumentdim buffer as stringSet uidoc = workspace.CurrentDocumentdateTime.LSLocalTime = Nowbuffer = uidoc.fieldgettext("SuiviContacts")if buffer = "" thenCall uidoc.FieldAppendText("SuiviContacts", Cstr(dateTime.DateOnly) & " - " & session.UserName)elseCall uidoc.FieldAppendText("SuiviContacts", uidoc.fieldgettext("SuiviContacts") + chr(10) + Cstr(dateTime.DateOnly) & " - " & session.UserName)end ifEnd Sub

[Raziel]

ou Sub Click(Source As Button)dim session as new notessessionDim workspace As New NotesUIWorkspaceDim dateTime As New NotesDateTime( "" )Dim uidoc As NotesUIDocumentSet uidoc = workspace.CurrentDocumentdateTime.LSLocalTime = NowCall uidoc.FieldAppendText("SuiviContacts", Cstr(dateTime.DateOnly) & " - " & session.UserName + chr(10))End Sub

[Droad]

Sub Click(Source As Button)Dim session as new NotesSessionDim workspace As New NotesUIWorkspaceDim uidoc As NotesUIDocumentSet uidoc = workspace.CurrentDocumentDim dateTime As New NotesDateTime( "" )Dim user As Stringuser = session.CommonUsernamedateTime.LSLocalTime = NowCall uidoc.FieldAppendText( "SuiviContacts", dateTime.DateOnly & " - " & user & Chr$(13))End Sub[%sig%]

[Nico (débutant)]

Merci beaucoup, Ca fonctionne mais il me met un carré derrière le UserName, je sais pas s'il y a moyen de l'enlever (sinon, on peut l'enlever à la main ds le champ mais ca serait plus pro s'il ne se mettait pas du tout. Si vous avez une idée ca m'arrangerai sinon, merci beaucoup pour le coup de pouce. Nico

[Droad]

désolé: Chr$(10) (et non Chr$(13))[%sig%]