Bonjour à tous

Cela fait une journée entière que je cherche sans succès comment modifier le Caption d'un bouton créé sur une feuille Excel à partir du lien http://delphi.developpez.com/faq/?page=excelfeuille#excelfeuajbtouton et de lui affecter le nom d'une macro à exécuter.
A l'exécution du code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
  BtnShape := ToolSheet.Shapes.AddOLEObject('Forms.CommandButton.1', EmptyParam, EmptyParam,
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                                 (TextBox.Left + TextBox.Width) / 2,
                                 TextBox.Top + TextBox.Height + 8, 110, 40);
  TmpStr := StrList[88];
  NextPosStr := Length(TmpStr);
  BtnShape.TextFrame.Characters('"CommandButton1"', Length(TmpStr)).Caption := TmpStr;
le bouton est créé avec comme Caption : «CommandButton1» mais l'instruction affectant un autre caption déclenche l'erreur EOleException «Membre introuvable».

Cela m'aiderait grandement si la FAQ était complétée parce que c'est bien de pouvoir créer un bouton amis si on ne peut pas en faire usage...

Merci d'avance.