[VBA-E] Changement de nom

J'ai

Code:

---

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 ?

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

Code:

---

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.