Discussion :

[dbeauhaire]

Bonjour,

Je rencontre un problème concernant ma macro que je n'arrive pas à solutionner.

Voici le sujet :
Ma macro créée des boutons bascules, puis elle affecte une macro au boutons ajoutés.

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
24
25
26
27
28
29
30
31
32
33
Private Sub CommandButton1_Click()
 
    Dim NextLine As Long
    Dim Code As String
    Dim oole As Object
    Dim i As Integer
    Dim L As Single, T As Single, h As Single, W As Single
 
    'Ajouter bouton
    For i = 2 To 4
 
        L = 450
        T = 120 * i
        W = 300
        h = 20
 
        Set oole = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, _
                    DisplayAsIcon:=False, Left:=L, Top:=T, Width:=W, Height:=h)
        oole.Name = "boutton" & i
 
    Next i
 
    'Ajouter le code du bouton
    Code = "Private Sub Bouton1_Click()" & vbCrLf
    Code = Code & " [A1].Value=""TEST" & vbCrLf
    Code = Code & "End Sub"
 
    With ThisWorkbook.VBProject.VBComponents(Feuil2.Name).CodeModule
        NextLine = .CountOfLines + 1
        .InsertLines NextLine, Code
    End With
 
End Sub

Seulement je n'arrive pas à affecter une macro au bouton, le message d'erreur suivant s'affiche : "erreur d'exécution '1004' : l'accès par programme au projet Visual Basic n'est pas fiable"

Auriez vous la solution?
Merci d'avance

[Daranc]

sous 2003
Outils
macros
securité
onglet editeurs eprouvés
coché faire confiance au projet visual basic
sous 2007 et 2010 j'ai pas sous la main

[dbeauhaire]

Merci beaucoup, il s'agissait bien de cela.