actuellement j'ai le nom de l'utilisateur du classeur
situé sur un serveur avec ce code
(merci pour l'utilisation de l'API)
et je voudrais retrouver le nom de la machine
je ne sais comment m'y prendre ?
merci
patrick
Private Sub Workbook_Open()
Dim Utilisateur As String, Machine As String
Nom = ActiveWorkbook.FullName
Utilisateur = NomUtilisateur()
Open Left(Nom, Len(Nom) - 3) & "txt" For Append As #1
Write #1, "Utilisateur : " & Utilisateur & " Date : " & Now
Close #1
End Sub
Public Declare Function GetNomUtilisateur Lib "advapi32.dll" Alias
"GetUserNameA" (ByVal IpBuffer As String, nSize As Long) As Long
Function NomUtilisateur() As String
Dim Buffer As String * 256
Dim BuffLen As Long
BuffLen = 256
If GetNomUtilisateur(Buffer, BuffLen) Then
NomUtilisateur = Left(Buffer, BuffLen - 1)
End If
End Function
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
patrick
Re j'avais mal cherché sur excelabo car je viens de trouver la solution de denis Michon avec la même Api merci @+ patrick
"patrick" a écrit dans le message news: 41c823ff$
Bonjour,
actuellement j'ai le nom de l'utilisateur du classeur situé sur un serveur avec ce code (merci pour l'utilisation de l'API) et je voudrais retrouver le nom de la machine je ne sais comment m'y prendre ?
merci patrick
Private Sub Workbook_Open() Dim Utilisateur As String, Machine As String Nom = ActiveWorkbook.FullName Utilisateur = NomUtilisateur() Open Left(Nom, Len(Nom) - 3) & "txt" For Append As #1 Write #1, "Utilisateur : " & Utilisateur & " Date : " & Now Close #1 End Sub
Public Declare Function GetNomUtilisateur Lib "advapi32.dll" Alias "GetUserNameA" (ByVal IpBuffer As String, nSize As Long) As Long
Function NomUtilisateur() As String Dim Buffer As String * 256 Dim BuffLen As Long BuffLen = 256 If GetNomUtilisateur(Buffer, BuffLen) Then NomUtilisateur = Left(Buffer, BuffLen - 1) End If End Function
Re
j'avais mal cherché sur excelabo
car je viens de trouver la solution de denis Michon
avec la même Api
merci
@+
patrick
"patrick" <stop_patrick.mathe@libertysurf.fr> a écrit dans le message news:
41c823ff$1@news.sncf.fr...
Bonjour,
actuellement j'ai le nom de l'utilisateur du classeur
situé sur un serveur avec ce code
(merci pour l'utilisation de l'API)
et je voudrais retrouver le nom de la machine
je ne sais comment m'y prendre ?
merci
patrick
Private Sub Workbook_Open()
Dim Utilisateur As String, Machine As String
Nom = ActiveWorkbook.FullName
Utilisateur = NomUtilisateur()
Open Left(Nom, Len(Nom) - 3) & "txt" For Append As #1
Write #1, "Utilisateur : " & Utilisateur & " Date : " & Now
Close #1
End Sub
Public Declare Function GetNomUtilisateur Lib "advapi32.dll" Alias
"GetUserNameA" (ByVal IpBuffer As String, nSize As Long) As Long
Function NomUtilisateur() As String
Dim Buffer As String * 256
Dim BuffLen As Long
BuffLen = 256
If GetNomUtilisateur(Buffer, BuffLen) Then
NomUtilisateur = Left(Buffer, BuffLen - 1)
End If
End Function
Re j'avais mal cherché sur excelabo car je viens de trouver la solution de denis Michon avec la même Api merci @+ patrick
"patrick" a écrit dans le message news: 41c823ff$
Bonjour,
actuellement j'ai le nom de l'utilisateur du classeur situé sur un serveur avec ce code (merci pour l'utilisation de l'API) et je voudrais retrouver le nom de la machine je ne sais comment m'y prendre ?
merci patrick
Private Sub Workbook_Open() Dim Utilisateur As String, Machine As String Nom = ActiveWorkbook.FullName Utilisateur = NomUtilisateur() Open Left(Nom, Len(Nom) - 3) & "txt" For Append As #1 Write #1, "Utilisateur : " & Utilisateur & " Date : " & Now Close #1 End Sub
Public Declare Function GetNomUtilisateur Lib "advapi32.dll" Alias "GetUserNameA" (ByVal IpBuffer As String, nSize As Long) As Long
Function NomUtilisateur() As String Dim Buffer As String * 256 Dim BuffLen As Long BuffLen = 256 If GetNomUtilisateur(Buffer, BuffLen) Then NomUtilisateur = Left(Buffer, BuffLen - 1) End If End Function
