Opslaan op verkeerde locatie

[Senso]

Sub SvMe()
     'Saves filename as value of C9 plus the current date
     
    Dim newFile As String, fName As String
     ' Don't use "/" in date, invalid syntax
    fName = Range("C9").Value
     'Change the date format to whatever you'd like, but make sure it's in quotes
    newFile = fName & " " & Format$(Date, "yyyy-mm-dd")
     ' Change directory to suit your PC, including USER NAME
    ChDir _
    "B:\"
    ActiveWorkbook.SaveAs Filename:=newFile
     
End Sub

Deze stond oorspronkelijk in de code:
"C:\Documents and Settings\ USER NAME \Desktop"

Ik maak daarvan "B:"
Echter wat ik ook doe, het bestand wordt opgeslagen op E:

 

[edmoor]

Vergeet ChDir. Nooit meer gebruiken.
Daarnaast zou je eerst een ChDrive moeten doen.

Je kan de te gebruiken driveletter gewoon opnemen in de newFile string.

 

[JEC.]

ThisWorkbook.SaveAs Range("C9").Value & " " & Date, 52

Dit is al voldoende

 

[VenA]

even de schijven omwisselen.:d

 

[Senso]

Blijkbaar een heel oud voorbeeld.
Deze werkt beter.

Sub FileNameAsCellContent()
Dim FileName As String
Dim Path As String
Application.DisplayAlerts = False
Path = "B:\"
FileName = Range("C9").Value & ".xlsx"
ActiveWorkbook.SaveAs Path & FileName, xlOpenXMLWorkbook
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub

 

[JEC.]

Nagenoeg hetzelfde als mijn suggestie als je je complete pad in C9 zet.

 

[edmoor]

En dit is dan voldoende;

Sub FileNameAsCellContent()
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs "B:\" & Range("C9").Value & ".xlsx", xlOpenXMLWorkbook
    Application.DisplayAlerts = True
    ActiveWorkbook.Close
End Sub