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
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
