'jour
 
Je mets en place une macro excel qui parse un fichier texte et le met en forme dans une feuille excel ... jusqu'ici tout va bien.
Je voudrais en plus que cette macro ajoute automatiquement des boutons sur cette feuille nouvellement créée (et bien sur, qu'elle ajoute le code VBA associé à l'action "Click()" )
 
J'ai actuellement écrit ça:
 

Dim bouton_ext As OLEObject
Dim bouton_lst As OLEObject
Dim recap As Workbook
 
[...]
 
recap.Sheets(1).Activate
Set bouton_ext = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Left:=700, Top:=50, Width:=150, Height:=50)
Set bouton_lst = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Left:=700, Top:=125, Width:=150, Height:=50)
bouton_ext.Name = "bouton_ext"
bouton_lst.Name = "bouton_lst"
bouton_ext.Object.Caption = "Bouton extraction"
bouton_lst.Object.Caption = "Bouton listage"
       
code_ext = "Sub CommandButton1_Click()" & vbCrLf & "    MsgBox(""Hello"" )" & vbCrLf & "End Sub"
recap.VBProject.VBComponents.Add(1).CodeModule.InsertLines 1, code_ext

 
Alors avec ça, j'ai bien les boutons, mais quand je clique dessus, rien ne se passe
J'ai loupé quelque chose ?
 
edit: ah oui, je précise qu'en remplaçant "CommandButton1" par "bouton_ext" dans la variable "code_ext", ça fait exactement la même chose, c'est à dire ... rien

Tu n'as pas un bouton_ext.onaction = mafonctionquivabien ?

je viens de regarder ... y'a bien mais ça plante à l'exécution si je fais ça:

recap.Worksheets(1).Shapes(1).OnAction = "CommandButton1_Click"

m'ci

Voila, un gentil collègue a trouvé la solution
Mon problème se situait au niveau de l'insertion du code VB du bouton, voila le code correct:
 

With recap.VBProject.VBComponents(recap.Sheets(1).Name).CodeModule
    nbl = .CountOfLines
    .InsertLines nbl + 1, code_ext
End With