GetUserName pour MacOSX [Résolu]

[doringen]

Bonjour,
j´ai trouvé ici même il y a quelque temps le code suivant pour extraire le nom d´utilisateur du PC.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Declare Function GetUserName Lib "advapi32.dll" _
      Alias "GetUserNameA" (ByVal lpBuffer As String, _
      nSize As Long) As Long
 
Sub UserName()
   Application.ScreenUpdating = False
      Dim b As String * 100
      Dim L As Long
      L = 100
      Sheets("kriterien").Select
      GetUserName b, L
      Range("V4").Value = Left(b, L - 1)
      Application.ScreenUpdating = False
End Sub

Le code marche très bien (), maintenant, je voudrais rendre mon fichier portable pour des collègues travaillant éventuellement sous MacOSX.
Quelqu´un sait-il quel élément je dois lire et comment (et dans quelle library) ?

Question subsidiaire:
Comment faire lire par le code les informations systême des différentes machines ? (l´idée est qu´en fonction de l´environnement sur lequel tourne excel, seules les macros adaptées à l´OS trouvé s´exécutent)

D´avance merci

[bbil]

sous excel ... n'as tu pas ...

Code :

1
2
 
msgbox Application.UserName

[doringen]

très juste, auguste
Je me suis bien pris la tête pour rien, en oubliant la devise qui devrait guider nos vies: "Herta, ne passons pas à côté des choses simples"
Merci !