Likith
XLDnaute Nouveau
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 :
L'erreur vient de la ligne suivante :
et cette écriture ne donne pas plus de résultat :
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
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 :
Mon code est le suivant :"Erreur d'éxécution '9' :
L'indice n'appartient pas à la sélection"
Code:
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 :
Code:
With ThisWorkbook.VBProject.VBComponents(Sheets("feuil1").CodeName).CodeModule
et cette écriture ne donne pas plus de résultat :
Code:
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
Dernière édition: