Merci Laurent, Bon j'ai essayé, moi je m'en sors pas. Erreur de syntaxe Pas simple tout cela ...
Dans un même temps je me lance dans les boites de dialogue pour mon registre. Je vais encore chercher. Pour suivre l'évolution du fichier : http://bronchart.free.fr Amicalement Philippe -----Message d'origine----- De : Laurent Godard [mailto:[EMAIL PROTECTED] Envoyé : vendredi 20 janvier 2006 15:19 À : prog@fr.openoffice.org Objet : Re: [prog] Concersion de macros > écrire en fin de tableau Re, n'etant pas sous windows actuellement, je ne peux tester mais je pense que ceci devarit etre assez adaptable Declare Function GetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, ByRef nSize As Integer) As Integer Function GetUser() Dim RetVal As Integer Dim UserName As String Dim Buffer As String Buffer = New String(CChar(" "), 25) RetVal = GetUserName(Buffer, 25) UserName = Strings.Left(Buffer, InStr(Buffer, Chr(0)) - 1) MsgBox(UserName) End Function issu de http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vblr7/html/ vastmDeclare.asp peut etre juste l'histoire du string.left a virer pour virer les carracteres nuls Laurent -- Laurent Godard <[EMAIL PROTECTED]> - Ingénierie OpenOffice.org Indesko >> http://www.indesko.com Nuxeo CPS >> http://www.nuxeo.com - http://www.cps-project.org Livre "Programmation OpenOffice.org", Eyrolles 2004 --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] --- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 0603-3, 18/01/2006 Analyse le : 20/01/2006 15:19:40 avast! - copyright (c) 1988-2005 ALWIL Software. http://www.avast.com --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 0603-4, 20/01/2006 Analyse le : 21/01/2006 09:27:31 avast! - copyright (c) 1988-2005 ALWIL Software. http://www.avast.com --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
