Verwijzing bestemd voor logbestandje

[goof2808]

Hi,

Ik wil een logfile maken waarin wordt weggeschreven wie een aantal door mij aangemaakte rapporten opent.

Zo kan ik zien of mijn rapportages daadwerkelijk worden geraadpleegt.

Ik ben al een heel eind:

Private Sub Workbook_Open()
Dim rapport, logfile

logfile = "G:\AHC\Algemeen\Test\LogFile.csv"
rapport = "CELVERWIJZING"

Dim WshNetwork, crlf, filesys, testfile
Set WshNetwork = CreateObject("WScript.Network")
Set filesys = CreateObject("Scripting.FileSystemObject")
crlf = Chr(13) & Chr(10)
login_name = WshNetwork.UserName
If filesys.FileExists(logfile) = False Then
Set testfile = filesys.CreateTextFile(logfile, True)
testfile.Write "Rapport;Gebruiker;Datum" & crlf
testfile.Close
End If
Set testfile = filesys.OpenTextFile(logfile, 8, True)
testfile.Write rapport & ";" & login_name & ";" & Now & crlf
testfile.Close
End Sub

In het logbestandje worden netjes drie kolommen gevuld:
Bestandsnaam; Personeelsnummer; Datum(tijd)

De bestandnaam vul ik handmatig in de VBA code in.

Ik wil deze graag uit een cel van het betreffende bestand halen.
Maar hoe kan ik het blad en de cel in 1 regel krijgen?

Onderstaande code moet dus aangepast worden:

rapport = "CELVERWIJZING"

CELVERWIJZING moet bijvoorbeeld aangepast worden naar:

Sheets("agenda").Select
Range("C1").Activate

Thanks,

govi

 

[snb]

Om te registreren of een bestand wordt geraadpleegd, kan ook korter:

Private Sub Workbook_Open()
  Open "[COLOR="Blue"]E:\logboek.txt[/COLOR]" For Append As #1
    Print #1, ThisWorkbook.FullName & ";" & CreateObject("WScript.Network").UserName & ";" & Now
   Close
End Sub

 

[Ellasar]

Iets in de trend van:

Rapport  = Me.activesheet.name & " " &Range("C1").Value

Misschien kun je ook nog
logfile = "G:\AHC\Algemeen\Test\LogFile.csv"
aanpassen naar
logfile = "X:\Bank\AHC\Algemeen\Test\LogFile.csv"
Indien er collega's van andere onderdelen bij moeten kunnen (moeten ze natuurlijk wel rechten hebben op de map

 

[goof2808]

Thanks snb en Ellasar, straks thuis even puzzelen

@Ellasar: ik wil graag wten of Willem van Duin ook mijn rapportages bekijkt

 

[goof2808]

Works perfectly, Thanks!