charette63
XLDnaute Occasionnel
bonjour,
je cherche à inserer dans une cellule le nom de l'ordinateur.
J'ai bien trouvé quelques codes qui me donne le nom de l'ordinateur, mais dans un MsgBox.
Je ne suis pas parvenu à le(s) modifier afin de retrouver cette valeur dans une cellule.
Voici un de ces codes (trouvé sur ce site, dans un post de 2004)
Ou peut-etre avec celui-ci:
merci pour votre aide
cordialement
Thierry
je cherche à inserer dans une cellule le nom de l'ordinateur.
J'ai bien trouvé quelques codes qui me donne le nom de l'ordinateur, mais dans un MsgBox.
Je ne suis pas parvenu à le(s) modifier afin de retrouver cette valeur dans une cellule.
Voici un de ces codes (trouvé sur ce site, dans un post de 2004)
Code:
Declare Function GetComputerName& Lib "kernel32" Alias "GetComputerNameA" (ByVal lbbuffer As String, nSize As Long)
Code:
Sub AfficherNomPC()
Dim Info As String * 64
GetComputerName Info, 64
MsgBox "Nom du PC : " & Info, , "Message"
End Sub
Ou peut-etre avec celui-ci:
Code:
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Code:
Function OSUserName() As String 'extrait d'un code de Paul, Dave Peterson Exelabo
Dim Buffer As String * 256
Dim BuffLen As Long
BuffLen = 256
If GetUserName(Buffer, BuffLen) Then _
OSUserName = Left(Buffer, BuffLen - 1)
End Function
Code:
Sub CTest()
MsgBox OSUserName
End Sub
merci pour votre aide
cordialement
Thierry