Ah, but Tom suggested that you put the code into the Workbook_open
procedure--not just in the ThisWorkbook module.
But since it's a template, you could use another argument in the workbooks.open
statement:
Workbooks.Open Filename:=ThisWorkbook.Path & "\book1.xlt", UpdateLinks:=3, _
editable:=False
The editable:=false works nicely with the template.
And this worked in the Auto_open procedure for me, too.
====
and just for no good reason at all...
since you're in another macro, you can change the setting, open the workbook,
and change it back. (I wouldn't use this!):
Dim ExistingAskToUpdateLinks As Boolean
With Application
ExistingAskToUpdateLinks = .AskToUpdateLinks
.AskToUpdateLinks = False
Workbooks.Add template:=ThisWorkbook.Path & "\book1.xlt"
.AskToUpdateLinks = ExistingAskToUpdateLinks
End With
'ThisWorkbook.Close savechanges:=false
But something like this could come in handy(???) later on (probably not,
though!).
Mick Southam wrote:
Dave/Tom
Guys I'm sorry about this but I must be missing something here.
I have now put the following in the ThisWorkbook module but still have the
same problem, but again if I step through it works:
Sub Auto_Open
Workbooks.Open Filename:=ThisWorkbook.Path & ("\PS27a(manual).xlt"),
UpdateLinks:=3
'ThisWorkbook.Close savechanges:=False ' rem'ed out for now
End Sub
Regards
Mick
"Tom Ogilvy" wrote in message
...
Put your code in the Workbook_Open event found in the ThisWorkbook module.
--
Regards,
Tom Ogilvy
"Mick Southam" wrote in message
...
Dave
I have done as you suggested and it works the first time I use it, but
not
if I open it again from within another macro.
Rather than use a normal file I am using a template as I need a blank
file
open each time, it will open the template but does not run the Sub
Auto_Open() or at least I think that's what happens. Does this mean it
need
to be written differently for a template. I have tried using
Workbooks.Add
Template:= instead but when I do UpdateLinks will not work.
Regards
Mick
"Dave Peterson" wrote in message
...
You can toggle the setting (user by user, though) via:
Tools|Options|Edit Tab.
There's a checkmark for "ask to update automatic links"
But this means that you suppress the question--the links still get
updated.
This setting is for the individual user--and affects all their
workbooks.
If you want more control:
Try creating a dummy workbook whose only purpose is to open the
original
workbook with links updated:
Kind of like:
Option Explicit
Sub auto_open()
Workbooks.Open Filename:="c:\my documents\excel\book2.xls",
UpdateLinks:=1
ThisWorkbook.Close savechanges:=False
End Sub
Then you open the dummy workbook and the links will be refreshed.
And xl2002 added an option that allows you to have more control:
Edit|links|startup prompt button.
check the "don't display the alert and update links"
Mick Southam wrote:
Hi
Can anyone help please, I need to automatically update links as a
file
opens
without any user input.
--
Kind Regards
Mick
--
Dave Peterson
--
Dave Peterson