Excel - uma macro para gravar botão

Questão

Eu gostaria de criar um botão de comando "Record" em um arquivo do Excel.

Quando alguém clica no botão, a macro leva a célula onde a pessoa inseriu seu nome e célula contendo a respectiva data e salva os dados em uma pasta de trabalho.

Solução

Abra sua pasta de trabalho
Abra o VBA Alt F11
Duplo clique com o botão esquerdo no ThisWorkbook no canto superior esquerdo
Clique com o botão direito na janela da direita

Copie o código abaixo nesta janela

 Sub Macro_Enregistrement () Dim Nom_Fichier, Chemin, Repetição 'A definir Chemin = "C: \ ............ \"' A1 e A2 um alterador suponive vos besoin Nom_Fichier = Planilhas ("Feuil1") .Range ("A1") & Planilhas ("Feuil1"). Intervalo ("A2") & ".xlsm" retval = MsgBox ("Registrador de nome de usuário:" & Nom_Fichier & "?", VbYesNo) Se retval = 6 Então Reponse = "Fichier" & Nom_Fichier & "sauvegardé" Nome do Arquivo ActiveWorkbook.SaveAs: = Chemin & Nom_Fichier, _ FileFormat: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = Falsa Outra Resposta = "Fichier não sauvegardé" End If retval = MsgBox (Reponse) End Sub