saveas calling a variable
 

HI,
I need to use an inputbox to get the user name of the user
and then save the workbook to a specific location. This
location where I need to reinsert the user name as a
variable. I try this but something is wrong with the
argument. I haven't succeed to writte the synthaxe to
insert my variable in the location.
Thanks for your advices
Application.ThisWorkbook.SaveAs D:\The Documents and
Settings/<user name/Application Data/Microsoft/AddIns

saveas calling a variable
 

Douvid,
try

ThisWorkbook.SaveAs "D:\The Documents and Settings/" & <user name &
"/Application Data/Microsoft/AddIns"

watch for wrap-around.


--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the Purbecks


"Douvid" wrote in message
...
HI,
I need to use an inputbox to get the user name of the user
and then save the workbook to a specific location. This
location where I need to reinsert the user name as a
variable. I try this but something is wrong with the
argument. I haven't succeed to writte the synthaxe to
insert my variable in the location.
Thanks for your advices
Application.ThisWorkbook.SaveAs D:\The Documents and
Settings/<user name/Application Data/Microsoft/AddIns

saveas calling a variable
 

ok bob and how do I have to declare the variable that
will insert the user name ? this causes me problems

-----Original Message-----
Douvid,
try

ThisWorkbook.SaveAs "D:\The Documents and Settings/"
& <user name &
"/Application Data/Microsoft/AddIns"

watch for wrap-around.


--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the Purbecks


"Douvid" wrote in message
...
HI,
I need to use an inputbox to get the user name of the
user
and then save the workbook to a specific location. This
location where I need to reinsert the user name as a
variable. I try this but something is wrong with the
argument. I haven't succeed to writte the synthaxe to
insert my variable in the location.
Thanks for your advices
Application.ThisWorkbook.SaveAs D:\The Documents and
Settings/<user name/Application Data/Microsoft/AddIns




.

saveas calling a variable
 

sUsername=Inputbox("Please supply your user name")

--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the Purbecks


"Douvid" wrote in message
...
ok bob and how do I have to declare the variable that
will insert the user name ? this causes me problems

-----Original Message-----
Douvid,
try

ThisWorkbook.SaveAs "D:\The Documents and Settings/"
& <user name &
"/Application Data/Microsoft/AddIns"

watch for wrap-around.


--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the Purbecks


"Douvid" wrote in message
...
HI,
I need to use an inputbox to get the user name of the
user
and then save the workbook to a specific location. This
location where I need to reinsert the user name as a
variable. I try this but something is wrong with the
argument. I haven't succeed to writte the synthaxe to
insert my variable in the location.
Thanks for your advices
Application.ThisWorkbook.SaveAs D:\The Documents and
Settings/<user name/Application Data/Microsoft/AddIns




.

saveas calling a variable
 

Hi Bob,
this is the procedure I'm using but I always get error
message or about the oject or about something else, can
you help on that one. thanks a lot
douvid

Sub installmytooloading()
Dim qst
Dim user

user = InputBox("Please enter your username for this
computer", "UserName")
ThisWorkbook.SaveAs "D:\The Documents and Settings/" &
user.Value & "/Application Data/Microsoft/AddIns"

End Sub

-----Original Message-----
sUsername=Inputbox("Please supply your user name")

--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the Purbecks


"Douvid" wrote in message
...
ok bob and how do I have to declare the variable that
will insert the user name ? this causes me problems

-----Original Message-----
Douvid,
try

ThisWorkbook.SaveAs "D:\The Documents and
Settings/"
& <user name &
"/Application Data/Microsoft/AddIns"

watch for wrap-around.


--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the
Purbecks


"Douvid" wrote in message
...
HI,
I need to use an inputbox to get the user name of the
user
and then save the workbook to a specific location.
This
location where I need to reinsert the user name as a
variable. I try this but something is wrong with the
argument. I haven't succeed to writte the synthaxe to
insert my variable in the location.
Thanks for your advices
Application.ThisWorkbook.SaveAs D:\The Documents and
Settings/<user name/Application
Data/Microsoft/AddIns




.



.

saveas calling a variable
 

Douvid,

You do not use user.Value, as user is a variable not an object with a Value
property. Just use

user = InputBox("Please enter your username for this computer", "UserName")
ThisWorkbook.SaveAs "D:\The Documents and Settings/" & user & _
"/Application Data/Microsoft/AddIns"

You can also get the user automatically (I am assuming you have XP, or
Win2000?). This function returns it
Public Declare Function GetUserName Lib "advapi32.dll" _

Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long

Public Function UserName() As String
Dim sName As String * 256
Dim cChars As Long
cChars = 256
If GetUserName(sName, cChars) Then
UserName = Left$(sName, cChars - 1)
End If
End Function

So you would then use
ThisWorkbook.SaveAs "D:\The Documents and Settings/" & Username & _
"/Application Data/Microsoft/AddIns"

--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the Purbecks


"Douvid" wrote in message
...
Hi Bob,
this is the procedure I'm using but I always get error
message or about the oject or about something else, can
you help on that one. thanks a lot
douvid

Sub installmytooloading()
Dim qst
Dim user

user = InputBox("Please enter your username for this
computer", "UserName")
ThisWorkbook.SaveAs "D:\The Documents and Settings/" &
user.Value & "/Application Data/Microsoft/AddIns"

End Sub

-----Original Message-----
sUsername=Inputbox("Please supply your user name")

--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the Purbecks


"Douvid" wrote in message
...
ok bob and how do I have to declare the variable that
will insert the user name ? this causes me problems

-----Original Message-----
Douvid,
try

ThisWorkbook.SaveAs "D:\The Documents and
Settings/"
& <user name &
"/Application Data/Microsoft/AddIns"

watch for wrap-around.


--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the
Purbecks


"Douvid" wrote in message
...
HI,
I need to use an inputbox to get the user name of the
user
and then save the workbook to a specific location.
This
location where I need to reinsert the user name as a
variable. I try this but something is wrong with the
argument. I haven't succeed to writte the synthaxe to
insert my variable in the location.
Thanks for your advices
Application.ThisWorkbook.SaveAs D:\The Documents and
Settings/<user name/Application
Data/Microsoft/AddIns




.



.

saveas calling a variable
 

thanks a lot, this was just what I needed.
great job

-----Original Message-----
Douvid,

You do not use user.Value, as user is a variable not an
object with a Value
property. Just use

user = InputBox("Please enter your username for this
computer", "UserName")
ThisWorkbook.SaveAs "D:\The Documents and Settings/" &
user & _
"/Application Data/Microsoft/AddIns"

You can also get the user automatically (I am assuming
you have XP, or
Win2000?). This function returns it
Public Declare Function GetUserName Lib "advapi32.dll" _

Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long

Public Function UserName() As String
Dim sName As String * 256
Dim cChars As Long
cChars = 256
If GetUserName(sName, cChars) Then
UserName = Left$(sName, cChars - 1)
End If
End Function

So you would then use
ThisWorkbook.SaveAs "D:\The Documents and Settings/" &
Username & _
"/Application Data/Microsoft/AddIns"

--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the Purbecks


"Douvid" wrote in message
...
Hi Bob,
this is the procedure I'm using but I always get error
message or about the oject or about something else, can
you help on that one. thanks a lot
douvid

Sub installmytooloading()
Dim qst
Dim user

user = InputBox("Please enter your username for this
computer", "UserName")
ThisWorkbook.SaveAs "D:\The Documents and Settings/" &
user.Value & "/Application Data/Microsoft/AddIns"

End Sub

-----Original Message-----
sUsername=Inputbox("Please supply your user name")

--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the
Purbecks


"Douvid" wrote in message
...
ok bob and how do I have to declare the variable that
will insert the user name ? this causes me problems

-----Original Message-----
Douvid,
try

ThisWorkbook.SaveAs "D:\The Documents and
Settings/"
& <user name &
"/Application Data/Microsoft/AddIns"

watch for wrap-around.


--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the
Purbecks


"Douvid" wrote in message
...
HI,
I need to use an inputbox to get the user name of
the
user
and then save the workbook to a specific location.
This
location where I need to reinsert the user name
as a
variable. I try this but something is wrong with
the
argument. I haven't succeed to writte the
synthaxe to
insert my variable in the location.
Thanks for your advices
Application.ThisWorkbook.SaveAs D:\The Documents
and
Settings/<user name/Application
Data/Microsoft/AddIns




.



.



.