Template opens instead of copy
On 31 aug, 16:02, Dave Peterson wrote:
I'd just create a new workbook based on that template:
* * *Dim NewWkbk As Workbook
* * *set NewWkbk _
* * * *= workbooks.Add(template:="\\bvwsrv01\BVW\AV\Operati ons\HASS" _
* * * * * * *& "\2.Utility and Log file\Templates\HASS.xlt")
On 08/31/2010 08:23, Ludo wrote:
Hi,
I have a template in a TEMPLATE folder on a network drive.
I could open this with a shortcut, and a copy of the template opened
as expected.
Because some settings could change (worksheet in the template), i made
it possible to save the template with the code below (Private Sub
CommandButton1_Click() )
I did make some changes in the setting and saved the template.
*From then on started the problem that the template itself opens
instead of a copy.
I'm running on Win XP Professional Version 2002 SP2& *Office 2003 SP3..
Here's the macro to open the template on the network drive.
Sub OpenHassOpvolgblad()
* * *ChDir "\\bvwsrv01\BVW\AV\Operations\HASS\2.Utility and Log file"
* * *Workbooks.Open FileName:="\\bvwsrv01\BVW\AV\Operations\HASS
\2.Utility and Log file\Templates\HASS.xlt", Editable:=False,
Notify:=False
End Sub
In my template i have following code:
Public Const UtilityTemplatePath = "\\bvwsrv01\BVW\AV\Operations\HASS
\2.Utility and Log file\Templates\HASS.xlt"
Private Sub CommandButton1_Click()
' save settings
* * *Application.DisplayAlerts = False
* * *ThisWorkbook.SaveAs FileName:=UtilityTemplatePath
* * *Unload Me
End Sub
Any clue what could have gone wrong, or is the above commandbutton
code the origine of the problem?
Any help welcome.
Ludo
--
Dave Peterson- Tekst uit oorspronkelijk bericht niet weergeven -
- Tekst uit oorspronkelijk bericht weergeven -
Thanks Dave, this works.
Ludo
|