Sub NouveauFichier()
Dim chemin$, fichier$, wb As Workbook
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = "Fichier " & Format(Date, "yyyy-mm-dd") 'à adapter
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Workbooks.Add(xlWBATWorksheet) 'nouveau document
wb.Sheets(1).Name = fichier
With wb.VBProject
.VBComponents.Add 1 'ajout d'un module standard
.VBComponents("Module1").CodeModule.AddFromString _
"Sub Macro()" & vbCrLf & "ActiveWorkbook.ActiveSheet.Rows(1).Select" & vbCrLf & "End Sub"
End With
With wb.Sheets(1).Buttons.Add(0, 0, 80, 30) 'ajout d'un bouton
.Text = "Macro"
.Font.Bold = True 'gras
.OnAction = "'" & wb.Name & "'!Macro"
End With
wb.SaveAs chemin & fichier, 56 'fichier .xls
wb.Close
End Sub