Bonjour,
j´ai trouvé ici même il y a quelque temps le code suivant pour extraire le nom d´utilisateur du PC.
Le code marche très bien (
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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), 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
Partager