Création de procédure par VBA

Version imprimable

03/11/2010, 16h30
setepenre

Création de procédure par VBA

Bonjour,
Je voudrais créer une procédure par macro et pouvoir la lancer dans la foulée.

J'ai réussi à créer un module mais je suis empétré dans les propriétés de l'objet

Code:

ThisWorkbook.VBProject.VBComponents("nom").

Quelqu'un a-t-il déjà tenté l'expérience ?

Merci

Bonsoir,
Voici un code qui
1) Insère une nouvelle feuille de calcul.
2) Ajoute un bouton de commande sur cette feuille.
3) Ajuste la position, la taille et la légende de ce bouton.
4) Insère une procédure événementielle pour le bouton de commande nommé CommandButton1_Click dans le module de code de la feuille.
Cet exemple provient du livre VBA pour Excel 2003 de John Walkenbach
Philippe

Code:

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
34
35
36
37
38
39
40
41
42
43
Sub AddSheetAndButton()
    Dim NewSheet As Worksheet
    Dim NewButton As OLEObject
 
'   S'assurer que l'accès au projet VB est autorisé
    On Error Resume Next
    Set x = ActiveWorkbook.VBProject
    If Err <> 0 Then
        MsgBox "Vos paramètres de sécurité ne permettent pas à cette macro de s'exécuter.", vbCritical
        On Error GoTo 0
        Exit Sub
    End If
 
 
'   Ajouter la feuille
    Set NewSheet = Sheets.Add
 
'   Ajouter un CommandButton
    Set NewButton = NewSheet.OLEObjects.Add _
      ("Forms.CommandButton.1")
    With NewButton
        .Left = 4
        .Top = 4
        .Width = 100
        .Height = 24
        .Object.Caption = "Retourner à Feuil1"
    End With
 
'   Ajouter le code de gestionnaire d'événements
    Code = "Sub CommandButton1_Click()" & vbCrLf
    Code = Code & "    On Error Resume Next" & vbCrLf
    Code = Code & "    Sheets(""Feuil1"").Activate" & vbCrLf
    Code = Code & "    If Err <> 0 Then" & vbCrLf
    Code = Code & "      MsgBox ""Impossible d'activer Feuil1.""" & vbCrLf
    Code = Code & "    End If" & vbCrLf
    Code = Code & "End Sub"
 
    With ActiveWorkbook.VBProject. _
      VBComponents(NewSheet.Name).CodeModule
        NextLine = .CountOfLines + 1
        .InsertLines NextLine, Code
    End With
End Sub

03/11/2010, 21h55
fring

Bonjour,

Il existe un tuto sur le sujet ;)
http://silkyroad.developpez.com/VBA/VisualBasicEditor/

Création de procédure par VBA

Bonjour à tous,

J'ai bien trouvé le tutoriel mais je rencontre encore un soucis.
Dans mon fichier Excel nommé "UI_Inst_Eff1.xls" se trouve un module "ManipModul" dans lequel se trouve ma procédure "Test" créatrice de code.

Mon souhait est le suivant : créer par programme une procédure que je lance immédiatement après cette création.
La routine créée est sensée m'afficher un petit "Coucou"

Le code est le suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Public Sub test() Dim VBComp As VBComponent Dim code As String Set VBComp = ThisWorkbook.VBProject.VBComponents("ManipModul") code = "Public Sub Message" & vbCrLf code = code & " msgbox " & Chr(34) & "coucou" & Chr(34) & vbCrLf code = code & "End Sub" With VBComp.CodeModule NextLine = .CountOfLines + 1 .InsertLines NextLine, code End With Application.Run "UI_Inst_Eff1.xls!ManipModul.Message" End Sub
Tout fonctionne à merveille jusqu'à la dernière ligne.
Le système me répond qu'il ne trouve pas la macro "Message"

04/11/2010, 10h45
Philippe Tulliez

Bonjour,
Chez moi ce code fonctionne parfaitement.
Philippe
04/11/2010, 13h07
setepenre

1 pièce(s) jointe(s)

Rebonjour,

Je dois alors avoir un problème de paramétrage de mon Access.
J'ai joint une photo des références VBA.
As-tu la même chose ?
02/12/2010, 11h37
setepenre

En fait la routine qui crée le programme d'importation ne peut pas le lancer.
Pourquoi ? Je n'en sais rien. Mais j'ai contourné le problème en appelant ce programmé créé par une autre routine.

1 pièce(s) jointe(s)

Reprise de la discussion

Bonjour à tous,

J'avais clos cette discussion car j'étais parvenu à mes fins.
Mes je la relance car j'ai voulu passer mon projet à deux de mes collègues qui voient le programme se planter.
La routine incriminée est la suivante :
Code:

1 2 3 4 5 6 7 8 Sub SupprimerMacroPrecise(Wb As Workbook, Mdl As String, NomMacro As String) Dim Debut As Integer, Lignes As Integer With Wb.VBProject.VBComponents(Mdl).CodeModule Debut = .ProcStartLine(NomMacro, 0) Lignes = .ProcCountLines(NomMacro, 0) .DeleteLines Debut, Lignes End With End Sub
Elle se plante sur la ligne en rouge et génère le code erreur 1004 : "L'accès par programme au projet Visual Basic n'est pas fiable".

Pourtant les bibliothèques activées sur mon PC le sont aussi sur le PC de mes collègues (cf pièce jointe)

Quelqu'un a-t-il une idée ?

Merci de votre aide.

13/12/2010, 17h05
fring

Bonjour,

Tu as la réponse dans la :faq:
http://excel.developpez.com/faq/?pag...SourcesFiables

;)
14/12/2010, 09h12
setepenre

Résolution

OK Merci.
:ccool: