ludo27
XLDnaute Junior
[Resolu][vba]Erreur sur ajout de code dynamique
Bonjour,
après l'insertion automatique d'un onglet, j'essaie de lui ajouter du code avec la procédure suivante :
Quand j'éxécute le code la première fois après avoir ouver le classeur j'obtiens l'erreur :
Si je force la poursuite de l'éxécution, Excel plante.
En revanche si j'arrête l'éxécution, les fois suivantes, la procédure s'éxécute sans erreur.
Je n'arrive pas à comprendre ce qui se passe.
Si quelqu'un a une idée ....
Merci
Bonjour,
après l'insertion automatique d'un onglet, j'essaie de lui ajouter du code avec la procédure suivante :
Code:
Public Sub AjouteCodeAOnglet(MyOnglet As String)
'Ajoute la procédure dans la feuille
Dim NomVb As String
'Application.Wait Now + TimeValue("0:00:10")
Dim X As Integer
With ActiveWorkbook.VBProject.VBComponents(Sheets(MyOnglet).CodeName).CodeModule
X = .CountOfLines
If X = 0 Then X = 1
.InsertLines X + 1, "Private Sub WorkSheet_Change(ByVal Target As Range) " & vbCrLf
.InsertLines X + 2, " Call InterceptTouche " & vbCrLf
.InsertLines X + 3, "End Sub"
End With
End Sub
Quand j'éxécute le code la première fois après avoir ouver le classeur j'obtiens l'erreur :
sur la ligneSubscript out of range
Code:
With ActiveWorkbook.VBProject.VBComponents(Sheets(MyOnglet).CodeName).CodeModule
Si je force la poursuite de l'éxécution, Excel plante.
En revanche si j'arrête l'éxécution, les fois suivantes, la procédure s'éxécute sans erreur.
Je n'arrive pas à comprendre ce qui se passe.
Si quelqu'un a une idée ....
Merci
Dernière édition: