sorry but it does not go to the directory and does not filter...

[VBA]

Private Sub CommandButton3_Click()
Dim vName As Variant
Dim sName As String
Dim chdir As String
Dim sFilter As String

sFilter = "*.xlsm"
chdir = "F:\Alualpha sync\Ficha de Produto\Template\testes de save"
vName = Application.GetSaveAsFilename()

If TypeName(vName) = "Boolean" Then
'user pressed cancel
Else
sName = VBA.Right(vName, VBA.Len(vName) - VBA.InStrRev(vName, Application.PathSeparator))
sName = VBA.Left(sName, VBA.InStrRev(sName, ".") - 1)

form_principal.Produto.Value = sName
form_principal.Show
End If
End Sub
[/VBA]