Excel - Eine Schaltfläche zum Aufzeichnen eines Makros

Problem

Ich möchte eine Befehlsschaltfläche "Aufzeichnen" in einer Excel-Datei erstellen.

Wenn jemand auf die Schaltfläche klickt, nimmt das Makro die Zelle, in der die Person ihren Namen und die Zelle mit dem entsprechenden Datum eingegeben hat, und speichert die Daten in einer Arbeitsmappe.

Lösung

Öffnen Sie Ihre Arbeitsmappe
Öffnen Sie die VBA Alt F11
Doppelklicken Sie links oben auf ThisWorkbook
Klicken Sie mit der rechten Maustaste in das rechte Fenster

Kopieren Sie den folgenden Code in dieses Fenster

 Sub Macro_Enregistrement () Dim Nom_Fichier, Chemin, Antwort 'A definir Chemin = "C: \ ............ \"' A1 und A2 sind weitere Optionen für Nom_Fichier = Worksheets ("Feuil1"). .Range ("A1") & Worksheets ("Feuil1"). Range ("A2") & ".xlsm" retval = MsgBox ("Voulevous enregistrer ce fichier:" & Nom_Fichier & "?", VbYesNo) Wenn retval = 6 Then Reponse = "Fichier" & Nom_Fichier & "sauvegardé" ActiveWorkbook.SaveAs Dateiname: = Chemin & Nom_Fichier, _ FileFormat: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = False Else Reponse = "Fichier non sauvegardés" End Sub