J'ai
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Public Sub toto()
ActiveWorkbook.RunAutoMacros
Dim objWorksheet As Worksheet
Set objWorksheet = ThisWorkbook.Worksheets(1)
objWorksheet.Shapes.AddOLEObject "Forms.CommandButton.1 ", , , , , , , 141, 28.5, 153, 27.75
MsgBox "toto"
End Sub
Comment changer le nom du bouton ?