bonjour Patrick
tu peux tester cette macro qui créée un nouveau , et y insere un bouton personnalisé permettant de fermer le classeur sans sauvegarde
Sub CreationBoutonETMacro()
Dim Obj As OLEObject
Dim Code As String, NextLine As String
Workbooks.Add 'creation nouveau classeur
Set Obj = ActiveSheet.OLEObjects.Add("Forms.CommandButton.1", _
Left:=10, Top:=10, Height:=20, Width:=100) 'ajout bouton dans nouveau classeur
Obj.Object.Caption = "Fermer classeur"
Obj.Object.BackColor = RGB(255, 255, 0) 'couleur bouton
Code = "Sub CommandButton1_Click()" & vbCrLf 'creation de la procedure associée au bouton
Code = Code & "ThisWorkBook.Close False" & vbCrLf
Code = Code & "End Sub"
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, Code
End With
End Sub
bon apres midi
MichelXld