Insertion code VBA dans une feuille

[patrick]

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

 

[david2]

Salut patrick

essai:

With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule

au lieu de:

With ActiveWorkbook.VBProject.VBComponents(Feuil4).CodeModule

 

[patrick]

Salut david

En fait j'ai besoin de rentrer ce code dans une feuille intitulée "Données".
Si je remplace Feuil4 par "Données", lorsque je crée le fichier, la feuille "Données" sera créée sur une feuille numérotée autrement que celle spécifiée ex (feuil6).

Je ne comprends pas

 

[david2]

est ce que ce code correspond à ta demande:


ActiveWorkbook.VBProject.VBComponents.Add (vbext_ct_StdModule)
ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.VBProject.VBComponents.Count).Name = "Donnees"
With ActiveWorkbook.VBProject.VBComponents("Donnees").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

 

[patrick]

David,

Non ça ne marche toujours pas. La Feuil1(exemple) devient Données(exemple) avec le code vba et ma Feuil4(Données) toujours sans code...

je désespère...

Merci quand même

 

[patrick]

Désolé, j'ai répondu trop vite.

En fait ça marche mais à condition de fermer visual basic avant d'exécuter la macro...

Merci beaucoup pour ton aide 😉

Patrick