Workbook_BeforeClose question

[Adi21]

Hy guys, I have a problem with the Workbook_BeforeClose.
I wrote a code and I want for every time when I close the file, this file to be saved on a site.
When I open the file myself and closed it is working. But that file is opened from another Excel file to complete cells and here is not working anymore. The Workbook_BeforeClose works only when I open myself the file and is not working if it`s automaticly open and close by another file?
I don`t understand why, because I have Private Sub Workbook_Open() in the file and this is working in the both situations.
Thank you.
Here is the code, if helps:

rivate Sub Workbook_BeforeClose(Cancel As Boolean)
Dim thefile, thepath As String
Let thepath = "[URL]http://....etc.../[/URL]"
Let thefile = "DatabaseLealde1.xlsm"
    ActiveWorkbook.SaveAs Filename:=thepath & thefile _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

[Andrew Poulsom]

Are you sure that you don't have On Error Resume Next somewhere in your code? You haven't posted all of it.

 

[Adi21]

Maybe that

SaveChanges:=True

to be the problem?
If already save once it`s not doing the save as?

 

[Andrew Poulsom]

I don't know, but the Before_Close event fires before the workbook is closed so there shouldn't be any changes to save.

 

[Adi21]

I`m sure.I`m new in VBA(I think that you saw that) and I don`t know how to use On Error Resume Next ,so I don`t have something like this in my code.
Sorry for a lot of questions, for bothering you and for my English that is not so good...

 

[Adi21]

Can be helpful if I write all the code here?

 

[Adi21]

A very strange thing is that I try to copy exactly the same code in the Workbook Open event and it`s saving on the site , but now doesn`t make the others operations from the event,like copy some rows!
When I checked with debbuger the information was copied, but when I open the file is not there.
And another strange thing, I`m trying to delete the code from Workbook Open, I save the file, but when I reopen the file the code is again there.How this is posible?

 

[Andrew Poulsom]

I can reproduce the behaviour you describe, but I don't have a solution, sorry.

 

[Adi21]

Ok,thanks.
Maybe it`s another way to save as the file on the site with another event or another code?

 

[Andrew Poulsom]

Can't you save the workbook in the procedure that opens it?

 

[Adi21]

Thank you a lot!!!
I put this code in the excel file that open and close automatically that file that I need to save as on the site and it`s seems like is working!

Workbooks("DatabaseLealde1").Save
Dim thefile, thepath As String
Let thepath = "[URL="http://teamwork.tenaris.net/sites/quality_Silcotub/Quality%20System/CapabilityAnalysis/CPKDimensional/DB/"]http://[/URL]the link"
Let thefile = "DatabaseLealde1.xlsm"
    Workbooks("DatabaseLealde1").SaveAs Filename:=thepath & thefile _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Workbooks("DatabaseLealde1").Close SaveChanges:=True