vba code als file bestaat dan overschrijven anders save as filenaam

[FvdF]

Beste forumleden,

Ik zoek een oplossing voor het volgende. Ik wil met vba een sheet opslaan onder dezelfde naam als deze al bestaat, bestaat deze naam niet dan met een andere naam uit een cel (A1).

Mvgr.
FvdF

 

[edmoor]

Zoiets:

If Dir(bestandsnaam) <> "" Then
    ActiveWorkbook.SaveAs bestandnaam
Else
    ActiveWorkbook.SaveAs Range("A1")
End If

 

[FvdF]

Lijkt mij niet, hier nogmaals wat ik graag wil.

bestandnaam is: "test.xlsm"

Met vba opslaan en als deze file al bestaat dan overschrijven, bestaat deze file naam niet dan opslaan als "test_abc.xlsm" (abc komt uit cel A1).

Grt.

 

[edmoor]

Lijkt mij niet

Oh?

 

[OctaFish]

Je bent ook nogal onduidelijk:

Ik zoek een oplossing voor het volgende. Ik wil met vba een sheet opslaan onder dezelfde naam als deze al bestaat, bestaat deze naam niet dan met een andere naam uit een cel (A1).

Een werkblad is géén werkboek, en als je een werkboek opslaat onder dezelfde naam dan is er weinig aan de hand, maar als je een werkblad opslaat onder dezelfde naam als waaronder het werkboek dat je op dat moment dus open hebt staan dan heb je volgens mij een serieus probleem. Als je dat echt wilt, dan kun je net zo goed de overige werkbladen (Sheets) verwijderen en daarna het werkboek opslaan.