Discussion :

[spileo]

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?

[ouskel'n'or]

Ton code fonctionne parfaitement chez moi. Ajoute en doevents après ajout de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set FresA = Classeur.Worksheets.Add
DoEvents
Dim NomFeuille As String

Il est possible que ton micro n'ait pas le temps de finir la création de la feuille avant d'écrire le code
A+

[spileo]

Bonjour,
le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoEvents

a effectivement réglé la chose.
Merci.