Bonjour à tous
un jour je vous posais la question suivante:
comment faire pour connaitre la derniere personne qui a procédée à la mise à
jour d'un fichier.
Michdenis me répondait ceci et je l'en remercie mais j'ai du passer à autre
chose et j'ai toujours un problème
"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
'--------------------"
mon problème est que je n'arrive pas à retrouver l'info par la suite ?
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
papou
Bonjour L'info est située dans la cellule IV65535 soit dans (presque) l'extrêmité inférieure droite de la feuille dont le codename est Feuil1.
Cordialement Pascal
"lematou" a écrit dans le message de news:
Bonjour à tous un jour je vous posais la question suivante: comment faire pour connaitre la derniere personne qui a procédée à la mise à jour d'un fichier.
Michdenis me répondait ceci et je l'en remercie mais j'ai du passer à autre chose et j'ai toujours un problème "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 '--------------------"
mon problème est que je n'arrive pas à retrouver l'info par la suite ?
cordialement , merci Jacks
Bonjour
L'info est située dans la cellule IV65535 soit dans (presque) l'extrêmité
inférieure droite de la feuille dont le codename est Feuil1.
Cordialement
Pascal
"lematou" <lematou@discussions.microsoft.com> a écrit dans le message de
news: B1F96DB5-8539-4E76-8CED-45EE7D7A3529@microsoft.com...
Bonjour à tous
un jour je vous posais la question suivante:
comment faire pour connaitre la derniere personne qui a procédée à la mise
à
jour d'un fichier.
Michdenis me répondait ceci et je l'en remercie mais j'ai du passer à
autre
chose et j'ai toujours un problème
"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
'--------------------"
mon problème est que je n'arrive pas à retrouver l'info par la suite ?
Bonjour L'info est située dans la cellule IV65535 soit dans (presque) l'extrêmité inférieure droite de la feuille dont le codename est Feuil1.
Cordialement Pascal
"lematou" a écrit dans le message de news:
Bonjour à tous un jour je vous posais la question suivante: comment faire pour connaitre la derniere personne qui a procédée à la mise à jour d'un fichier.
Michdenis me répondait ceci et je l'en remercie mais j'ai du passer à autre chose et j'ai toujours un problème "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 '--------------------"
mon problème est que je n'arrive pas à retrouver l'info par la suite ?
