Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Fichier en réseau

Fichier en réseau

3 réponses
Avatar
Roberto
Bonjour,
Dans le cadre de l'utilisation en réseau d'un fichier XLS, y a t-il un moyen
de connaitre le dernier utilisateur du fichier ?

En vous remerciant
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
JB
Bonjour,

Exemple en PJ

http://cjoint.com/?mjjTioK6Pa

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets("dernier_utilisateur").Range("a1") = GetUserName()
Sheets("dernier_utilisateur").Range("a2") = Now
End Sub

Dans un module:

Option Explicit
Declare Function wu_GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long

Function GetUserName() As Variant
Dim strUserName As String, lngLength As Long, lngResult As Long
strUserName = String$(255, 0)
lngLength = 255
lngResult = wu_GetUserName(strUserName, lngLength)
GetUserName = Left(strUserName, InStr(1, strUserName, Chr(0)) - 1)
End Function

Cordialement JB
Avatar
Roberto
Super, Merci beaucoup JB

"JB" a écrit dans le message de news:

Bonjour,

Exemple en PJ

http://cjoint.com/?mjjTioK6Pa

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets("dernier_utilisateur").Range("a1") = GetUserName()
Sheets("dernier_utilisateur").Range("a2") = Now
End Sub

Dans un module:

Option Explicit
Declare Function wu_GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long

Function GetUserName() As Variant
Dim strUserName As String, lngLength As Long, lngResult As Long
strUserName = String$(255, 0)
lngLength = 255
lngResult = wu_GetUserName(strUserName, lngLength)
GetUserName = Left(strUserName, InStr(1, strUserName, Chr(0)) - 1)
End Function

Cordialement JB



Avatar
michdenis
Bonjour à vous deux,

Il y a aussi ceci :

Sheets("dernier_utilisateur").Range("a1") = Environ("UserName")


Salutations!



"JB" a écrit dans le message de news:
Bonjour,

Exemple en PJ

http://cjoint.com/?mjjTioK6Pa

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets("dernier_utilisateur").Range("a1") = GetUserName()
Sheets("dernier_utilisateur").Range("a2") = Now
End Sub

Dans un module:

Option Explicit
Declare Function wu_GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long

Function GetUserName() As Variant
Dim strUserName As String, lngLength As Long, lngResult As Long
strUserName = String$(255, 0)
lngLength = 255
lngResult = wu_GetUserName(strUserName, lngLength)
GetUserName = Left(strUserName, InStr(1, strUserName, Chr(0)) - 1)
End Function

Cordialement JB