Bonjour,

Je souhaite ajouter du code automatiquement dans le module d'une feuille sans avoir besoin de l'écrire manuellement.

j'ai testé la procédure suivante et j'ai l'erreur d'exécution 1004 :
La méthode VBProject de l'objet workbook a échoué

Il me manque peut-être une référence car j'ai trouvé ce code dans le forum et il devait donc certaineemnt fonctionner.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Essai_AjoutCode()
 
Dim x As Integer
'With Workbooks("Classeur1").VBProject.VBComponents("Accueil").CodeModule
With ActiveWorkbook.VBProject.VBComponents("M_Essais").CodeModule
 
x = .CountOfLines
.InsertLines x + 1, "Public Sub MaProcedure"
.InsertLines x + 2, "... du code ici"
.InsertLines x + 650, "... la suite du code"
.InsertLines x + 651, "End Sub"
End With
End Sub
L'un de vous a-t-il une explication ? Merci d'avance.