Bonjour,

J'ai une macro liée à un bouton qui me génère une nouvelle feuille dans mon classeur.
Dans cette nouvelle feuille, je crée un bouton pour lequel je voudrai insérer un bout de code.

Ce que j'ai réussi à faire :
- Générer la nouvelle feuille
- Créer mon bouton
- Modifier le nom du bouton et le texte associé

Ce que je n'ai pas réussi à faire :
- Modifier le code VBA du bouton

Voici mon bout de code pour créer le bouton :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
                newSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
                    , DisplayAsIcon:=False, Left:=1, Top:=1, Width:=72, Height:=24). _
                    Select
 
                X = ActiveSheet.OLEObjects.Count 'compter le nombre de boutons existants dans la feuille
 
                'option nommer l'objet
                ActiveSheet.OLEObjects(X).name = "GenerateXML"
                'texte sur le bouton
                ActiveSheet.OLEObjects(X).Object.Caption = "Generate XML"
Voici le bout de code pour modifier le code du bouton :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
                Code = "Sub GenerateXML_Click()" & vbCrLf
                Code = Code & "  ModuleOngletsImportation.GenerateXML2" & vbCrLf
                Code = Code & "End Sub"
 
                With ActiveWorkbook
                    MsgBox ("OK")
                    .VBProject.VBComponents(ActiveSheet.name).CodeModule.AddFromString (Code)
                    'NextLine = .CountOfLines + 1
                    '.insertlines NextLine, Code
                End With
Je n'arrive pas à faire fonctionner cette seconde partie.

Y aurait-il quelqu'un pour m'aider ?