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.
L'un de vous a-t-il une explication ? Merci d'avance.
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
Partager