commando 'Opslaan Als' voor Excel

[gast0667]

Hoe zorg je ervoor dat VBA een werkblad opslaat op een door de gebruiker gedefineerde plaats ?

Heb nu:

OpslaanAls = Application.GetSaveAsFilename

maar als ik een naam invul in het pop-up scherm slaat hij hem niet op.

 

[Relleboer]

Sub save()
Application.DisplayAlerts = False

filesavename = Application.GetSaveAsFilename( _
    fileFilter:="Excel bestanden (*.xls), *.xls")

ActiveWorkbook.SaveAs Filename:=filesavename
Application.DisplayAlerts = True

End Sub

Met zoiets gaat het wel goed komen denk ik

 

[gast0667]

:thumb: Thanx :thumb:

Hij werkt