C
Creepy
Guest
Bonsoir à tous,
j'ai fait un planning de suivi d'activité que tout le monde peux consulter. Cependant quand quelqu'un ouvre le document, s'il est deja ouvert par quelqu'un d'autre il y a une notification de lecture seule.
Je voudrais récuperer le nom de l'ordinateur qui a deja ouvert le fichier et mettre une boite de dialogue qui dit : Utilisateur XXX travaille deja sur le document, pour eviter de cherche qui est sur le classeur !
Comment puis-je faire, sachant que j'ai deja un code qui copie dans une fichier TXT le nom de l'ordinateur qui ouvre le document.
Merci d'avance
Creepy
----------------- Code de création d'un document TXT avec le login de celui qui ouvre le fichier-----------------------------
'computer name
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'user name
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Workbook_Open()
'computer name
Dim strComputerName As String
strComputerName = String(10, Chr$(0))
GetComputerName strComputerName, 10
'username
Dim strUserName As String
strUserName = String(10, Chr$(0))
GetUserName strUserName, 10
Dim MonClass As String
MonClass = ActiveWorkbook.FullName
MonClass = Left(MonClass, 1)
Dim lngHFile As Long
lngHFile = FreeFile
Open MonClass & ":\Egchris\Christophe\myLog.txt" For Append Shared As #lngHFile
Write #lngHFile, Trim(Date), Right(Time, 10), Trim(strComputerName), Trim(strUserName)
Close #lngHFile
j'ai fait un planning de suivi d'activité que tout le monde peux consulter. Cependant quand quelqu'un ouvre le document, s'il est deja ouvert par quelqu'un d'autre il y a une notification de lecture seule.
Je voudrais récuperer le nom de l'ordinateur qui a deja ouvert le fichier et mettre une boite de dialogue qui dit : Utilisateur XXX travaille deja sur le document, pour eviter de cherche qui est sur le classeur !
Comment puis-je faire, sachant que j'ai deja un code qui copie dans une fichier TXT le nom de l'ordinateur qui ouvre le document.
Merci d'avance
Creepy
----------------- Code de création d'un document TXT avec le login de celui qui ouvre le fichier-----------------------------
'computer name
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'user name
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Workbook_Open()
'computer name
Dim strComputerName As String
strComputerName = String(10, Chr$(0))
GetComputerName strComputerName, 10
'username
Dim strUserName As String
strUserName = String(10, Chr$(0))
GetUserName strUserName, 10
Dim MonClass As String
MonClass = ActiveWorkbook.FullName
MonClass = Left(MonClass, 1)
Dim lngHFile As Long
lngHFile = FreeFile
Open MonClass & ":\Egchris\Christophe\myLog.txt" For Append Shared As #lngHFile
Write #lngHFile, Trim(Date), Right(Time, 10), Trim(strComputerName), Trim(strUserName)
Close #lngHFile