VBA opslaan met de naam die het al heeft

[vrouw]

Ik wil een bestand dat ik open opslaan als een .csv file in een (bestaande) map met de naam die het al heeft.
Ik pas dus de ActiveWorkbook.Saveas aan naar ActiveWorkbook.Save dat wil niet lukken.

Dit is wat ik nu heb

Sub tst()
Application.DisplayAlerts = False
    ActiveWorkbook.Save Filename:="C:\boxter\", _
        FileFormat:=xlCSV, CreateBackup:=False
End Sub

 

[gast0660]

Is zoiets de bedoeling?

Sub vrouw()
Application.DisplayAlerts = False
vrouwnaam = "naam die het al heeft"
    ActiveWorkbook.SaveAs Filename:="C:\boxter\" & vrouwnaam & ".csv", _
        FileFormat:=xlCSV, CreateBackup:=False
End Sub

of

Sub vrouw()
Application.DisplayAlerts = False
 vrouwnaam = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
    ActiveWorkbook.SaveAs Filename:="C:\boxter\" & vrouwnaam & ".csv", _
        FileFormat:=xlCSV, CreateBackup:=False
End Sub

 

[vrouw]

Bedankt voor het meedenken alvast maar dit is niet wat ik zoek.

Beide gevallen word het toch weer in een andere bestandsnaam opgeslagen. Ik wil graag dat het gewoon word opgeslagen met de naam die het op dat moment heeft.
Dus alleen opslaan, en niet opslaan als. Maar dan wel in de aangegeven map.

Kan dat?

 

[edmoor]

Als dat document al een .csv extensie heeft, hoe wil je dan die VBA routine er in opslaan?

 

[vrouw]

Die sla ik op in de Personal file, dus niet in het bestand zelf.

 

[OctaFish]

Dan is dit toch al genoeg?

    ActiveWorkbook.Save

 

[vrouw]

Klopt maar ik krijg de code niet voor elkaar met de verwijzing naar de map met behoud van de naam.

 

[vrouw]

Ik heb het inmiddels gevonden.
Bedankt allen voor het mee denken.

ActiveWorkbook.SaveAs Filename:= _
      "C:\boxter\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1) & ".csv", _
       FileFormat:=xlCSV, Local:=True

 

[HSV]

Kan ook:

split(thisworkbook.name,".")(0)