Discussion :

[bernard38]

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 ?

[Catbull]

AddOLEObject renvoie un objet OLEObject qui comporte une propriété Name :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Set O = objWorksheet.Shapes.AddOLEObject "Forms.CommandButton.1 ", , , , , , , 141, 28.5, 153, 27.75
 
O.Name = "NouveauNom"

Sinon, le paramètre 2 permet peut-être (à vérifier) de définir le nom.