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
anomymousA
Bonjour,
je n'ai aucune idée de ce que peut être une structure data. Quant userfilename pas +.Je connais Username , et pour excel, la récupération du Username peut être faite via le code suivant.
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
Sub GetLoginName() 'Chris Amess, mpep 'Gets the currently logged on user from the system
Dim strName As String Dim lngReturn As Long Dim strLoginName As String
'Gets users Name using API call strName = Space$(25) lngReturn = GetUserName(strName, 25)
If lngReturn = 1 Then strLoginName = Left$(strName, 6) ' I use this because I am only 'expecting 6 characters, you could use Trim(strName) DoEvents MsgBox strLoginName Else MsgBox "Couldn't get the user's Name from the network." End If
End Sub
Introduire dans ce code l'instructioncells(1,256).value=strloginname donc dans la dernière colonne à la 1ere ligne est un jeu d'enfant
A+
Dans une structure data je désire que s'incrive l'userfilename de l'utilisateur dans la dernière colonne. Comment puis-je procéder ?
Merci d'avance.
Ernest
Bonjour,
je n'ai aucune idée de ce que peut être une structure data. Quant
userfilename pas +.Je connais Username , et pour excel, la récupération du
Username peut être faite via le code suivant.
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Sub GetLoginName()
'Chris Amess, mpep
'Gets the currently logged on user from the system
Dim strName As String
Dim lngReturn As Long
Dim strLoginName As String
'Gets users Name using API call
strName = Space$(25)
lngReturn = GetUserName(strName, 25)
If lngReturn = 1 Then
strLoginName = Left$(strName, 6) ' I use this because I am only
'expecting 6 characters, you could use Trim(strName)
DoEvents
MsgBox strLoginName
Else
MsgBox "Couldn't get the user's Name from the network."
End If
End Sub
Introduire dans ce code l'instructioncells(1,256).value=strloginname donc
dans la dernière colonne à la 1ere ligne est un jeu d'enfant
A+
Dans une structure data je désire que s'incrive l'userfilename de
l'utilisateur dans la dernière colonne.
Comment puis-je procéder ?
je n'ai aucune idée de ce que peut être une structure data. Quant userfilename pas +.Je connais Username , et pour excel, la récupération du Username peut être faite via le code suivant.
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
Sub GetLoginName() 'Chris Amess, mpep 'Gets the currently logged on user from the system
Dim strName As String Dim lngReturn As Long Dim strLoginName As String
'Gets users Name using API call strName = Space$(25) lngReturn = GetUserName(strName, 25)
If lngReturn = 1 Then strLoginName = Left$(strName, 6) ' I use this because I am only 'expecting 6 characters, you could use Trim(strName) DoEvents MsgBox strLoginName Else MsgBox "Couldn't get the user's Name from the network." End If
End Sub
Introduire dans ce code l'instructioncells(1,256).value=strloginname donc dans la dernière colonne à la 1ere ligne est un jeu d'enfant
A+
Dans une structure data je désire que s'incrive l'userfilename de l'utilisateur dans la dernière colonne. Comment puis-je procéder ?
Merci d'avance.
Ernest
Jacky
Bonjour Ernest
Ceci peut-être
With CreateObject("WScript.NetWork") MsgBox "Utilisateur: " & vbTab & .UserName & vbLf & "Ordinateur: " & vbTab & .ComputerName & vbLf & "Domaine: " & vbTab & .UserDomain End With
Salutations JJ
"Ernest" a écrit dans le message de news:
Dans une structure data je désire que s'incrive l'userfilename de l'utilisateur dans la dernière colonne. Comment puis-je procéder ?
Merci d'avance.
Ernest
Bonjour Ernest
Ceci peut-être
With CreateObject("WScript.NetWork")
MsgBox "Utilisateur: " & vbTab & .UserName & vbLf & "Ordinateur: " & vbTab
& .ComputerName & vbLf & "Domaine: " & vbTab & .UserDomain
End With
Salutations
JJ
"Ernest" <Ernest@discussions.microsoft.com> a écrit dans le message de
news:F70B2396-8567-46F9-984A-825B639F82F2@microsoft.com...
Dans une structure data je désire que s'incrive l'userfilename de
l'utilisateur dans la dernière colonne.
Comment puis-je procéder ?
Dans une structure data je désire que s'incrive l'userfilename de l'utilisateur dans la dernière colonne. Comment puis-je procéder ?
Merci d'avance.
Ernest
Ernest
Un grand merci.
"anomymousA" wrote:
Bonjour,
je n'ai aucune idée de ce que peut être une structure data. Quant userfilename pas +.Je connais Username , et pour excel, la récupération du Username peut être faite via le code suivant.
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
Sub GetLoginName() 'Chris Amess, mpep 'Gets the currently logged on user from the system
Dim strName As String Dim lngReturn As Long Dim strLoginName As String
'Gets users Name using API call strName = Space$(25) lngReturn = GetUserName(strName, 25)
If lngReturn = 1 Then strLoginName = Left$(strName, 6) ' I use this because I am only 'expecting 6 characters, you could use Trim(strName) DoEvents MsgBox strLoginName Else MsgBox "Couldn't get the user's Name from the network." End If
End Sub
Introduire dans ce code l'instructioncells(1,256).value=strloginname donc dans la dernière colonne à la 1ere ligne est un jeu d'enfant
A+
Dans une structure data je désire que s'incrive l'userfilename de l'utilisateur dans la dernière colonne. Comment puis-je procéder ?
Merci d'avance.
Ernest
Un grand merci.
"anomymousA" wrote:
Bonjour,
je n'ai aucune idée de ce que peut être une structure data. Quant
userfilename pas +.Je connais Username , et pour excel, la récupération du
Username peut être faite via le code suivant.
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Sub GetLoginName()
'Chris Amess, mpep
'Gets the currently logged on user from the system
Dim strName As String
Dim lngReturn As Long
Dim strLoginName As String
'Gets users Name using API call
strName = Space$(25)
lngReturn = GetUserName(strName, 25)
If lngReturn = 1 Then
strLoginName = Left$(strName, 6) ' I use this because I am only
'expecting 6 characters, you could use Trim(strName)
DoEvents
MsgBox strLoginName
Else
MsgBox "Couldn't get the user's Name from the network."
End If
End Sub
Introduire dans ce code l'instructioncells(1,256).value=strloginname donc
dans la dernière colonne à la 1ere ligne est un jeu d'enfant
A+
Dans une structure data je désire que s'incrive l'userfilename de
l'utilisateur dans la dernière colonne.
Comment puis-je procéder ?
je n'ai aucune idée de ce que peut être une structure data. Quant userfilename pas +.Je connais Username , et pour excel, la récupération du Username peut être faite via le code suivant.
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
Sub GetLoginName() 'Chris Amess, mpep 'Gets the currently logged on user from the system
Dim strName As String Dim lngReturn As Long Dim strLoginName As String
'Gets users Name using API call strName = Space$(25) lngReturn = GetUserName(strName, 25)
If lngReturn = 1 Then strLoginName = Left$(strName, 6) ' I use this because I am only 'expecting 6 characters, you could use Trim(strName) DoEvents MsgBox strLoginName Else MsgBox "Couldn't get the user's Name from the network." End If
End Sub
Introduire dans ce code l'instructioncells(1,256).value=strloginname donc dans la dernière colonne à la 1ere ligne est un jeu d'enfant
A+
Dans une structure data je désire que s'incrive l'userfilename de l'utilisateur dans la dernière colonne. Comment puis-je procéder ?
Merci d'avance.
Ernest
Ernest
Un grand merci.
"denis P" wrote:
Ou...
Function USname() As String
USname = Environ$("USERNAME") End Function
denis p.
"Ernest" a écrit dans le message de news:
Dans une structure data je désire que s'incrive l'userfilename de l'utilisateur dans la dernière colonne. Comment puis-je procéder ?
Merci d'avance.
Ernest
Un grand merci.
"denis P" wrote:
Ou...
Function USname() As String
USname = Environ$("USERNAME")
End Function
denis p.
"Ernest" <Ernest@discussions.microsoft.com> a écrit dans le message de
news:F70B2396-8567-46F9-984A-825B639F82F2@microsoft.com...
Dans une structure data je désire que s'incrive l'userfilename de
l'utilisateur dans la dernière colonne.
Comment puis-je procéder ?
