CommandButton sans userform

Bonjour,

Dans un fichier qui ce nomme "toto.xlsx",Je lance ma macro via la barre d'outils d'accés rapide.

Cette macro est stocker dans un Fichier "titi.xlsxm".

Lorsque je lance la macro, le fichier "titi" s'ouvre bien, et tous ce passe bien.

Mais...

Cette macro crée un bouton via Commandbouton, mais lorsque je veux l’exécuter, il me cherche un userform dans le fichier "titi".

Comment faire pour exécuter un bouton soit en exécutant le userform de "toto" soit mieux directement une procédure. En sachant que je créer le bouton :

Sub Bouton()
    Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
        Link:=False, DisplayAsIcon:=False, Left:=1100, Top:=50, Width:=250, Height:=35)
        Obj.Name = "BoutonValid"
        Obj.Object.BackColor = &HC0C000
        ActiveSheet.OLEObjects(1).Object.Caption = "Ajouter le Footprint selectionner"
        'Lancement de la procedure
End Sub

Merci.

Bonjour Sebdev

Si je comprends bien, tu souhaites créer un bouton sur ta feuille puis créer la procédure Private Sub....._Click

Voici le code :

 Sub Bouton()
'Création du bouton sur la feuille (CommandButton1 = BoutonValid)
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=1100, Top:=50, Width:=250, Height:=35)
Obj.Name = "BoutonValid"
Obj.Object.BackColor = &HC0C000
ActiveSheet.OLEObjects(1).Object.Caption = "Ajouter le Footprint selectionner"

'Création  de la macro associée au CommandButton => "BoutonValid" 
    Code = "Private Sub BoutonValid_Click()" & vbCrLf
    Code = Code & "Call Tester" & vbCrLf
    Code = Code & "End Sub"
    'Ajoute la macro en fin de module feuille
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
        .insertlines .CountOfLines + 1, Code
    End With
    End Sub

Dans le présent code je fais appel à une macro nommée Tester, donc insère le code suivant dans un module

Sub Tester()
MsgBox "Hello Sebdev"
End Sub