Excel - En makro til opptaksknapp

Utgave

Jeg vil gjerne lage en kommandoknapp "Record" i en Excel-fil.

Når noen klikker på knappen, tar makroen cellen der personen har skrevet inn navn og celle som inneholder den aktuelle datoen, og lagrer dataene i en arbeidsbok.

Løsning

Åpne arbeidsboken din
Åpne VBA Alt F11
Dobbelt venstre klikker på ThisWorkbook øverst til venstre
Høyreklikk i høyre vindu

Kopier koden under i dette vinduet

 Sub Macro_Enregistrement () Dim Nom_Fichier, Chemin, Reponse 'En definierende Chemin = "C: \ ............ \"' A1 og A2 en changer suivant vos besoin Nom_Fichier = Regneark ("Feuil1") .Range ("A1") og regneark ("Feuil1"). Område ("A2") & ".xlsm" retval = MsgBox ("Voulezvous enregistrer ce fichier:" & Nom_Fichier & "?", VbYesNo) = 6 Then Reponse = "Fichier" & Nom_Fichier & "sauvegardé" ActiveWorkbook.SaveAs Filnavn: = Chemin & Nom_Fichier, _ FileFormat: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = False Else Reponse = "Fichier non sauvegardé" End Hvis retval = MsgBox (Reponse) Slutt Sub