nom de la machine locale

Bonjour à tous,

En VBA, comment récupérer le nom de la machine locale ?
Le code suivant, trouvé sur un Forum, me renvoi le nom du serveur distant, et non le nom de la machine sur laquelle je travaille.

Code:

---

1 2 3 4 5 6

Declare Function GetComputerName& Lib "kernel32" Alias "GetComputerNameA" (ByVal lbbuffer As String, nSize As Long)   Public Function JMPS GetComputerName Info, 64 JMPS= Info End Function

---

Merci par avance pour vos réponses.

bonsoir,
ce code trouvé sur la toile fonctionne normalement chez moi :
testes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" ( _ ByVal lpBuffer As String, _ nSize As Long) As Long     Public Function ComputerName() As String ' Retourne le nom de l'ordinateur Dim stTmp As String, lgTmp As Long stTmp = Space$(250) lgTmp = 251 Call GetComputerName(stTmp, lgTmp) ComputerName = Split(stTmp, Chr$(0))(0) End Function

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Function TrouveMonOrdi() As String Dim strComputerName As String Dim strUserName As String     strComputerName = Environ("COMPUTERNAME") strUserName = Environ("USERNAME")     TrouveMonOrdi = strComputerName End Function

---

Par contre, je ne sais plus s'il faut une reference spécifique.

Pas besoin de ref particulière.

Le bonheur tient souvent à bien peu de choses.
MERCI à tous et en particulier à LE VIEUX

Code:

---

1 2 3 4 5 6 7

Declare Function GetComputerName& Lib "kernel32" Alias "GetComputerNameA" (ByVal lbbuffer As String, nSize As Long)   Public Function JMPS GetComputerName Info, 64 JMPS= Split(Info, Chr$(0))(0) End Function

---