bonsoir
j'ai ce code
19 msg = MsgBox("Voulez-vous enregistrer?", vbYesNo, "SAUVEGARDE")
20 If msg = 6 Then GoTo 22
21 If msg = 7 Then GoTo 23
' boite de dialogue ouverture enregistrer sous
22 SendKeys ("Feuille de garde du ") & CStr(ThisWorkbook.ActiveSheet.Range("d1").Value)
'Application.FileDialog(msoFileDialogSaveAs).Show
Application.Dialogs(xlDialogSaveAs).Show
j'aimerai, rendre l'enregistrement systématique, sans demander à l'utilisateur, il clique sur un bouton et ça enregistre avec le nom.
ensuite j'aimerai rendre inopérant les boutons du menu "enregisstrer", "imprimer" ainsi que les icones
merci de votre aide