Ajouter du code par vba - Crash -> TWB.VBP.VBC(ActiveSheet.CodeName).CM [Résolu]

[Likith]

Bonjour à toi qui me lira, bonjour le forum,


J'ai un bel outil tout fini! ou presque...

En effet, un code censé me permettre de rajouter du code à une feuille nouvellement créée (automatiquement) ne veux s'exécuter!
A vrai dire, au début il semblait fonctionner.

Maintenant, il ne fonctionne plus sauf si j'ouvre VB avant de l'éxécuter ou que je l'éxécute en pas à pas : c'est incompréhensible!!

L'erreur est la suivante :

"Erreur d'éxécution '9' :
L'indice n'appartient pas à la sélection"

Mon code est le suivant :

Private Sub BoutonAjoutZone_Click()

'Création de la nouvelle feuille
ActiveWorkbook.Sheets.Add.Name = "FeuilleVierge"
Sheets("FeuilleVierge").Move after:=Worksheets(Worksheets.Count)

'Ajouter une macro à la nouvelle feuille
Dim laMacro As String
Dim x As Integer

laMacro = "Private Sub Worksheet_Change(ByVal Target As Range)" & vbCrLf
[...]
laMacro = laMacro & "End Sub"

With ThisWorkbook.VBProject.VBComponents(Sheets("feuil1").CodeName).CodeModule
x = .CountOfLines + 1
.InsertLines x, laMacro
End With

End If
Exit Sub

L'erreur vient de la ligne suivante :

With ThisWorkbook.VBProject.VBComponents(Sheets("feuil1").CodeName).CodeModule

et cette écriture ne donne pas plus de résultat :

ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule

Je suis donc coincé et malgré mes recherches je n'ai rien trouvé de concluant.

Auriez vous une petite idée pour moi?


Je vous en remerci d'avance!

Bonne journée.

Likith

 

[Likith]

Re : Ajouter du code par vba - Crash -> TWB.VBP.VBC(ActiveSheet.CodeName).CM [Résolu]

Re,

Merci beaucoup, je vais mettre ça en action pour éviter tout problème!

Bonne journée.

Likith