à votre avis est il possible via une macro vba de répurérer le nom du
dernier utilisateur (username) qui à mis à jour un fichier ainsi que la date
de celle-ci ?
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
michdenis
Bonjour LeMatou,
Dans le fichier dont tu veux savoir quel est l'usager qui a sauvegardé le fichier le dernier, voici une façon de faire :
Tu copies tout ce qui suit dans le ThisWorkbook de Ton fichier ...
Et pour savoir quel est le nom de cet usager même si le fichier est fermé, il s'agit que tu lises la valeur de la cellule où tu as inscrit le nom de l'uager lors de la sauvegarde du fichier.
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
Function UserName() Dim s As String, n As Long, Res As Long s = String$(200, 0): n = 199: Res = GetUserName(s, n) UserName = UCase(Left(s, n - 1)) End Function '-------------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Feuil1.Range("IV65535") = UserName
End Sub '--------------------
Salutations!
"lematou" a écrit dans le message de news: Bonjour,
à votre avis est il possible via une macro vba de répurérer le nom du dernier utilisateur (username) qui à mis à jour un fichier ainsi que la date de celle-ci ?
merci pour vos précieux éclairages
Jacks
Bonjour LeMatou,
Dans le fichier dont tu veux savoir quel est l'usager qui a sauvegardé le fichier le dernier,
voici une façon de faire :
Tu copies tout ce qui suit dans le ThisWorkbook de Ton fichier ...
Et pour savoir quel est le nom de cet usager même si le fichier est fermé,
il s'agit que tu lises la valeur de la cellule où tu as inscrit le nom de l'uager lors
de la sauvegarde du fichier.
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Function UserName()
Dim s As String, n As Long, Res As Long
s = String$(200, 0): n = 199: Res = GetUserName(s, n)
UserName = UCase(Left(s, n - 1))
End Function
'--------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Feuil1.Range("IV65535") = UserName
End Sub
'--------------------
Salutations!
"lematou" <lematou@discussions.microsoft.com> a écrit dans le message de news: 2900E307-5356-4B4F-BBBD-0C10B8E00BC3@microsoft.com...
Bonjour,
à votre avis est il possible via une macro vba de répurérer le nom du
dernier utilisateur (username) qui à mis à jour un fichier ainsi que la date
de celle-ci ?
Dans le fichier dont tu veux savoir quel est l'usager qui a sauvegardé le fichier le dernier, voici une façon de faire :
Tu copies tout ce qui suit dans le ThisWorkbook de Ton fichier ...
Et pour savoir quel est le nom de cet usager même si le fichier est fermé, il s'agit que tu lises la valeur de la cellule où tu as inscrit le nom de l'uager lors de la sauvegarde du fichier.
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
Function UserName() Dim s As String, n As Long, Res As Long s = String$(200, 0): n = 199: Res = GetUserName(s, n) UserName = UCase(Left(s, n - 1)) End Function '-------------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Feuil1.Range("IV65535") = UserName
End Sub '--------------------
Salutations!
"lematou" a écrit dans le message de news: Bonjour,
à votre avis est il possible via une macro vba de répurérer le nom du dernier utilisateur (username) qui à mis à jour un fichier ainsi que la date de celle-ci ?
merci pour vos précieux éclairages
Jacks
lematou
Merci Michdenis c'est génial, il ne me reste plus qu'à l'adapter à mon besoins spécifique Merci beaucoup Jacks
Bonjour LeMatou,
Dans le fichier dont tu veux savoir quel est l'usager qui a sauvegardé le fichier le dernier, voici une façon de faire :
Tu copies tout ce qui suit dans le ThisWorkbook de Ton fichier ...
Et pour savoir quel est le nom de cet usager même si le fichier est fermé, il s'agit que tu lises la valeur de la cellule où tu as inscrit le nom de l'uager lors de la sauvegarde du fichier.
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
Function UserName() Dim s As String, n As Long, Res As Long s = String$(200, 0): n = 199: Res = GetUserName(s, n) UserName = UCase(Left(s, n - 1)) End Function '-------------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Feuil1.Range("IV65535") = UserName
End Sub '--------------------
Salutations!
"lematou" a écrit dans le message de news: Bonjour,
à votre avis est il possible via une macro vba de répurérer le nom du dernier utilisateur (username) qui à mis à jour un fichier ainsi que la date de celle-ci ?
merci pour vos précieux éclairages
Jacks
Merci Michdenis
c'est génial, il ne me reste plus qu'à l'adapter à mon besoins spécifique
Merci beaucoup
Jacks
Bonjour LeMatou,
Dans le fichier dont tu veux savoir quel est l'usager qui a sauvegardé le fichier le dernier,
voici une façon de faire :
Tu copies tout ce qui suit dans le ThisWorkbook de Ton fichier ...
Et pour savoir quel est le nom de cet usager même si le fichier est fermé,
il s'agit que tu lises la valeur de la cellule où tu as inscrit le nom de l'uager lors
de la sauvegarde du fichier.
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Function UserName()
Dim s As String, n As Long, Res As Long
s = String$(200, 0): n = 199: Res = GetUserName(s, n)
UserName = UCase(Left(s, n - 1))
End Function
'--------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Feuil1.Range("IV65535") = UserName
End Sub
'--------------------
Salutations!
"lematou" <lematou@discussions.microsoft.com> a écrit dans le message de news: 2900E307-5356-4B4F-BBBD-0C10B8E00BC3@microsoft.com...
Bonjour,
à votre avis est il possible via une macro vba de répurérer le nom du
dernier utilisateur (username) qui à mis à jour un fichier ainsi que la date
de celle-ci ?
Merci Michdenis c'est génial, il ne me reste plus qu'à l'adapter à mon besoins spécifique Merci beaucoup Jacks
Bonjour LeMatou,
Dans le fichier dont tu veux savoir quel est l'usager qui a sauvegardé le fichier le dernier, voici une façon de faire :
Tu copies tout ce qui suit dans le ThisWorkbook de Ton fichier ...
Et pour savoir quel est le nom de cet usager même si le fichier est fermé, il s'agit que tu lises la valeur de la cellule où tu as inscrit le nom de l'uager lors de la sauvegarde du fichier.
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
Function UserName() Dim s As String, n As Long, Res As Long s = String$(200, 0): n = 199: Res = GetUserName(s, n) UserName = UCase(Left(s, n - 1)) End Function '-------------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Feuil1.Range("IV65535") = UserName
End Sub '--------------------
Salutations!
"lematou" a écrit dans le message de news: Bonjour,
à votre avis est il possible via une macro vba de répurérer le nom du dernier utilisateur (username) qui à mis à jour un fichier ainsi que la date de celle-ci ?
