sauvegarde et boutons qui disparait

[petchy]

bonjour

sur ma feuille j'ai un CommandButton1 pour actualiser mes données qui viennent de ma base ACCESS
j'ai un second CommandButton2 pour sauvegarder la feuille
comment faire pour que la presonne qui va clicker pour enregistrer le feuille ,les 2 boutons n'apparaisse pas dans la sauvegarde.
voila le code mais ça ne fonctionne pas

Private Sub CommandButton2_Click()
Application.Dialogs(xlDialogSaveAs).Show
CommandButton1.Visible = False
CommandButton2.Visible = False
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
ActiveWorkbook.Close
End Sub

merci
petchy

 

[petchy]

Re : sauvegarde et boutons qui disparait

Re

c'est bon j'ai trouver,en fait c'etait le code qui était mal disposer
Private Sub CommandButton2_Click()
CommandButton1.Visible = False
CommandButton2.Visible = False
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSaveAs).Show
Application.Quit
End Sub