Discussion :

[JMPS.VBA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[LE VIEUX]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[psykodumarteau]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Kloun]

Pas besoin de ref particulière.

[JMPS.VBA]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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