StigPepper
11-14-2006, 08:29 AM
Hi, this is my first post on your forum. Hopefully I am described my problem clearly, if you require further information please give me a shout.
Cheers, Stig.
I am using a VB macro on a survey designed on MS Excel. The survey is published on our work intranet and is set-up to return the completed survey to a central email account through the users Lotus Notes or Outlook account.
The problem I am experiencing is that before the form is returned it must be saved, and I have no control over where the form is saving using the code below.
Ideally I would like the survey to be saved on the users desktop, can you please advise how the code can be changed to allow this to happen: -
ans = MsgBox("Do you want to make any more changes to the survey before sending?", vbYesNo)
If ans = vbYes Then
Exit Sub
End If
ThisWorkbook.SaveAs FileName:=Sheets("Details").Range("R2"), FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.RunAutoMacros (xlAutoClose)
FullPath = ThisWorkbook.FullName
FileName = ThisWorkbook.Name
Cheers, Stig.
I am using a VB macro on a survey designed on MS Excel. The survey is published on our work intranet and is set-up to return the completed survey to a central email account through the users Lotus Notes or Outlook account.
The problem I am experiencing is that before the form is returned it must be saved, and I have no control over where the form is saving using the code below.
Ideally I would like the survey to be saved on the users desktop, can you please advise how the code can be changed to allow this to happen: -
ans = MsgBox("Do you want to make any more changes to the survey before sending?", vbYesNo)
If ans = vbYes Then
Exit Sub
End If
ThisWorkbook.SaveAs FileName:=Sheets("Details").Range("R2"), FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.RunAutoMacros (xlAutoClose)
FullPath = ThisWorkbook.FullName
FileName = ThisWorkbook.Name