Hi,
To save a worksheet you have to put in a new workbook like this:
ActiveSheet.Move
Or like this:
ActiveSheet.Copy
Then you save the new workbook.
Private Sub CommandButton3_Click()
Dim vResponse As Variant
vResponse = Application.GetSaveAsFilename(FileFilter:="Microso ft Excel
Files (*.xls), *.xls", _
Title:="Please select your file")
If vResponse < False Then
ActiveSheet.Move 'ActiveSheet.Copy 'depending what you needs
ActiveWorkbook.SaveAs Filename:=vResponse
Else
MsgBox "You cancelled.", vbOKOnly + vbInformation
End If
End Sub
Regards,
Manu/
"shootz" a écrit dans le message de news:
...
I am trying to open a save from button 3 for just the worksheet not the
whole
workbook. I am really new at this I have two tries..help
Private Sub CommandButton3_Click()
fileSaveName = Application.GetSaveAsFilename(fileFilter:="Microso ft Excel
Workbook (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=fileSaveName
End Sub
or
Dim vResponse As Variant
vResponse = Application.GetSaveAsFilename( _
FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
Title:="Please select your file")
ActiveWorkbook.SaveAs Filename:=fileSaveName
If vResponse < False Then
MsgBox Prompt:="You selected '" & vResponse & "'.", _
Buttons:=vbOKOnly Or vbInformation
Else
MsgBox Prompt:="You cancelled.", _
Buttons:=vbOKOnly Or vbInformation
End If
End Sub
or