renvoie le nom de l ordinateur

M

marc

Guest
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
 
M

michel

Guest
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
 

Statistiques des forums

Discussions
302 249
Messages
2 001 851
Membres
215 344
dernier inscrit
rodymary