renvoie le nom de l ordinateur

[marc]

Bonjour le forum

Je cherche comment on peut renvoyer dans une cellule le nom de l ordinateur soit avec une fonction soit avec vba

Merci de vos réponse

 

[michel]

bonsoir Marc

tu peux essayer


Declare Function GetComputerName& Lib "kernel32" Alias "GetComputerNameA" (ByVal lbbuffer As String, nSize As Long)

Sub AfficherNomPC()
Dim Info As String * 64
GetComputerName Info, 64
MsgBox "Nom du PC : " & Info, , "Message"
End Sub


bonne soiree
MichelXld

 

[marc]

Bonsoir Michel

Je te remerci de ta macro c'est super.
Bonne soirée
Marc