Discussion :

[skorpio]

bonjour a tout le monde

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
Dim W As Workbook
Dim vbM As VBComponent
 
Private Sub CommandButton1_Click()
 
    'correspondant au checkBox de la colonne A
    If CheckBox1.Value = True Then
        Set W = ActiveWorkbook 'prend le classeur courant
        'Crée un nouveau module dans le classeur
        Set vbM = W.VBProject.VBComponents.Add(vbext_ct_StdModule)
 
        'Ajoute la fonction qui efface la colonne A dans le classeur actif
        vbM.CodeModule.InsertLines 1, "Sub EffacerColonneA"
        vbM.CodeModule.InsertLines 2, "Range(""A:A"").clear"
        vbM.CodeModule.InsertLines 3, "End Sub"
    End If       
End Sub

j'ai un code qui génère une macro, jusqu'ici tous va bien, mais lorsque je le lance je souhaiterai que ça ne me renvoi pas sur Visual Basic, je sais pas si j'ai été clair... en fait j'ai envie que ça me crée le module mais j'ai pas envie de voir s'il s'est bien créer, je ve pas que Visual s'ouvre après que je le lance.
Si vous avez des questions???

[cavo789]

Je vais écrire une bétise : as-tu déjà essayé un close et un release ?

Code :

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

1
2
vbM.Close
Set vbM = Nothing

[skorpio]

non ça a pas marché

[jfontaine]

C'est quoi la référence pour avoir VBComponent en type de variable?

[skorpio]

c'est Microsoft Visual Basic for application extensibility 5.3

[SilkyRoad]

bonsoir

Tu peux essayer d'ajouter en fin début de procédure

Code :

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

    Application.VBE.MainWindow.Visible = False

michel