Discussion :

[cakola]

Bonjour,

J'ai créé une macro VBA dans un module Excel d'un classeur source qui permet de générer un nouveau fichier Excel un classeur cible.

Dans le classeur cible, je souhaiterais avoir un bouton qui permet de mettre à jour certaines feuilles. J'arrive à créer le code pour créer le bouton dans on classeur cible, par contre je n'arrive pas à affecter une macro.

Voici le code de ma macro dans le classeur source:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    Dim Code As String
    Dim Objet As OLEObject
    Dim X As String
    Dim NextLine As Long
 
    ThisWorkbook.Worksheets(1).Activate
 
     Set Objet = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=111, Top:=81.75, Width:=368.25, Height _
        :=116.25)
 
    Objet.Object.Caption = "Mise à jour"
    Objet.Name = "MAJ"
 
 
    Code = "Private Sub MAJ_Click()" & vbCrLf
    Code = Code & "Sheets(""ThisWorkbook.Worksheets(1).name"").select" & vbCrLf
    Code = Code & "End Sub"
 
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
    NextLine = .CountOfLines + 1
    .Insertlines NextLine, Code
    End With

Le bouton se crée bien dans mon classeur cible, par contre lorsque je clique dessus, le code "MAJ" ne se lance pas.

Je vous remercie par avance si vous avez des idées pour faire fonctionner le code.

Cakola

[Nico Chg]

Bonjour,

J'ai regarder de mon côté avec l'enregistreur de macro et j'obtiens :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Macro1()
'
' Macro1 Macro
'
 
'
    ActiveSheet.Buttons.Add(410.25, 232.5, 57, 39.75).Select
    Selection.OnAction = "updateTable"
End Sub

Essaie de regarder du côté de la propriété "OnAction" (La macro que j'ai assigné au bouton est "updateTable").

[cakola]

J'ai regardé la fonction "Onaction" mais ça ne semble pas fonctionner dans mon programme..

[kiki29]

Salut, lire et assimiler Visual Basic Editor

[cakola]

Merci pour ce guide.

J'arrive à lancer la macro sur mon bouton, par contre le code que je souhaite généré avec ce bouton est assez long.

Il y a-t-il une fonction qui permet d'appeler une macro déjà écrite "Macro()" avec le code ci-après:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
        'Spécifie le contenu de la macro qui sera associée au bouton
            LaMacro = "Sub monBouton_Click()" & vbCrLf
            LaMacro = LaMacro & "Application. run"Macro"" & vbCrLf
            LaMacro = LaMacro & "End Sub"

Je vous remercie par avance.