Hi
I would paste this code in the workbook section. This will allow to save the workbook in file that you can access later.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim LogFile As String
Close #1
LogFile = "c:\test\activite.log"
ChDir "c:\test"
Open LogFile For Append Shared As #1
Print #1, ActiveWorkbook.Name
Close #1
End Sub
and then I would you put this in a module
Sub auto_open()
Close #2 ' Close file.
LogFile = "c:\test\activite.log"
ChDir "c:\test"
Open LogFile For Input As #2
Do While Not EOF(2) ' Loop until end of file.
Input #2, MyWorkbookName
Loop
Close #2 ' Close file.
MsgBox MyWorkbookName
End Sub