P
patrick
Guest
Bonjour le forum
Je voudrais insérer du code vba automatiquement à la création de mon fichier.
J'ai utilisé ce code, mais rien ne se crée.
With ActiveWorkbook.VBProject.VBComponents(Feuil4).CodeModule
X = .CountOfLines
.InsertLines X + 1, "End sub"
.InsertLines X + 1, "Application.Run ""perso.xls!modifcombo1"""
.InsertLines X + 1, "Range(""B1"") = ComboBox1.Value"
.InsertLines X + 1, "Private Sub ComboBox1_Change()"
End With
Il y a-t-il une erreur ?
Merci à tous
Je voudrais insérer du code vba automatiquement à la création de mon fichier.
J'ai utilisé ce code, mais rien ne se crée.
With ActiveWorkbook.VBProject.VBComponents(Feuil4).CodeModule
X = .CountOfLines
.InsertLines X + 1, "End sub"
.InsertLines X + 1, "Application.Run ""perso.xls!modifcombo1"""
.InsertLines X + 1, "Range(""B1"") = ComboBox1.Value"
.InsertLines X + 1, "Private Sub ComboBox1_Change()"
End With
Il y a-t-il une erreur ?
Merci à tous