Le bout de code ci-dessous appelle une API de Windows qui récupère le user-ID de la personne connectée sur le pc (disposant de Windows NT, 2000 ou XP pro), et renvoie une chaîne de caractères "propre" (sans cactère de contrôle...)
Source / Exemple :
' à mettre dans le module
Private Declare Function WNetGetUserA Lib "mpr" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
'Fonction à appeler
Function GetUser() As String
Dim sUserNameBuff As String
Dim x As String
sUserNameBuff = Space(255)
x = WNetGetUserA(vbNullString, sUserNameBuff, 255&)
GetUser = UCase$(Trim(Left(sUserNameBuff, InStr(1, sUserNameBuff, Chr$(0)) - 1)))
End Function
Conclusion :
Exemple d'utilisation :
If GetUser = "CM3" Then
...
Else
...
End If
Trèèès simple !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.