Excel - Tlačítko nahrávání makra

Problém

Chtěl bych vytvořit příkazové tlačítko "Record" v souboru Excel.

Když někdo klikne na tlačítko, makro vezme buňku, do které osoba zadala své jméno a buňku obsahující příslušné datum a uloží data do sešitu.

Řešení

Otevřete sešit
Otevřete VBA Alt F11
Dvojité levé kliknutí na ThisWorkbook v levém horním rohu
Klikněte pravým tlačítkem v pravém okně

Zkopírujte níže uvedený kód

 Sub Macro_Enregistrement () Dim Nom_Fichier, Chemin, Reponse 'A Definir Chemin = "C: ............" A1 a A2 a měnič sivant vos besoin Nom_Fichier = Pracovní listy ("Feuil1") .Range ("A1") & Listy ("Feuil1") Rozsah ("A2") & ".xlsm" retval = MsgBox ("Voulezvous enregistrer ce fichier:" & Nom_Fichier & "?", VbYesNo) = 6 Pak Reponse = "Fichier" & Nom_Fichier & "sauvegardé" ActiveWorkbook.SaveAs Název souboru: = Chemin & Nom_Fichier, _ FileFormat: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = False Else Reponse = "Fichier non sauvegardé" Konec Pokud retval = MsgBox (Reponse) End Sub