Bonsoir,
J'utilise ce code pour écrire dans la partie code d'une feuille Excel:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim Classeur As Workbook
Set Classeur = Excel.Application.ActiveWorkbook
Dim FresA As Worksheet
Set FresA = Classeur.Worksheets.Add
Dim NomFeuille As String
NomFeuille = FresA.CodeName
Dim xl As Integer
With Classeur.VBProject.VBComponents.Item(NomFeuille).CodeModule
        xl = .CountOfLines
        .InsertLines xl + 1, "Private Sub Worksheet_Calculate()"
 
        .InsertLines xl + 2, "End Sub"
End With
Quand le programme arrive au With, de temps en temps il s'arrête et renvoie l'erreur: "L'indice n'appartient pas à la sélection". Quand je mets un espion sur la variable NomFeuille, elle est alors vide. Je ne vois pas pourquoi.
Quelqu'un aurait-il une idée svp?