Excel - Un buton pentru înregistrarea macro

Problema

Aș dori să creez un buton de comandă "Înregistrare" într-un fișier Excel.

Când cineva face clic pe buton, macro-ul trece în celula în care persoana a introdus numele și celula care conține data respectivă și salvează datele într-un registru de lucru.

Soluţie

Deschideți agenda
Deschideți VBA Alt F11
Faceți dublu clic pe butonul ThisWorkbook din partea stângă sus
Faceți clic dreapta în fereastra din dreapta

Copiați codul de mai jos în această fereastră

 Sub Macro_Enregistrement () Dim Nom_Fichier, Chemin, Răspuns 'A definit Chemin =' C: \ ............ \ '' A1 și A2 un changer suivant vos besoin Nom_Fichier = Foi de lucru ("Feuil1") ("A2") și ".xlsm" retval = MsgBox ("Voulezvous enregistrer ce fichier:" & Nom_Fichier & "?", VbYesNo) = 6 Atunci răspunsul = "Fichier" & Nom_Fichier & "sauvegardé" ActiveWorkbook.SaveAs Numele fișierului: = Chemin & Nom_Fichier, _ FileFormat: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = False Else Reponse = "Fichier non sauvegardé" End Sub