Change Save Code to work for other Users

[Mister H]

Hi:

Once again I seek the help of the experts

I am trying to alter this code so that it will save to the user desktop. Right now it is saving to MY desktop. How can I make it User Specific? I want the HiginM to be whatever the users name is

Dim SaveMeAs As String
    SaveMeAs = Sheets("ARIR Template-Electronic").Range("CustomerName").Text
 
Sheets("Customer Setup").Copy
 
    ActiveSheet.Unprotect "password"
 
ActiveSheet.Cells.Copy
ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues
 
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\[COLOR=red][B]HiginM[/B][/COLOR]\Desktop\Test\" & SaveMeAs

Any suggestions?

THANKS,
Mark

 

[njimack]

Maybe this
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\"&Environ("Username")&"\Desktop\Test\" & SaveMeAs

 

[Rasm]

This is from MSDN-should work

http://support.microsoft.com/kb/161394

Declare Function WNetGetUser Lib "mpr.dll" _
      Alias "WNetGetUserA" (ByVal lpName As String, _
      ByVal lpUserName As String, lpnLength As Long) As Long
   Const NoError = 0       'The Function call was successful
Private Sub GetUserName()
      ' Buffer size for the return string.
      Const lpnLength As Integer = 255
      ' Get return buffer space.
      Dim status As Integer
      ' For getting user information.
      Dim lpName, lpUserName As String
      ' Assign the buffer size constant to lpUserName.
      lpUserName = Space$(lpnLength + 1)
      ' Get the log-on name of the person using product.
      status = WNetGetUser(lpName, lpUserName, lpnLength)
      ' See whether error occurred.
      If status = NoError Then
         ' This line removes the null character. Strings in C are null-
         ' terminated. Strings in Visual Basic are not null-terminated.
         ' The null character must be removed from the C strings to be used
         ' cleanly in Visual Basic.
         lpUserName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
         
      Else
         ' An error occurred.
         MsgBox "Unable to get the name."
         End
      End If
      ' Display the name of the person logged on to the machine.
      MsgBox "The person logged on this machine is: " & lpUserName
End Sub

 

[Rasm]

ohhhhh - be aware - Windows 7 uses a a folder c:\users & not documents and settings

 

[Mister H]

THANKS to BOTH of your for your replies and suggestions. I will give them a try tomorrow when I return to the office. None of my users are on Windows 7 yet. I believe they are all using XP. THANKS again

Have a GREAT night,
Mark