problème une génération de macro
bonjour a tout le monde
Code:
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???:cry:
