XL 2016 Créer une macro avec une macro

[dodineau]

Bonjour tout le monde,
J'ai une macro qui créé un classeur avec 2 onglets.
Est-il possible que la macro me créé aussi une macro dans ce nouveau classeur ?
En effet dans le nouveau classeur je voudrais y insérer une macro qui se déclenche au double clic dans une cellule du 1er onglet (Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)).
Merci pour votre aide.
A+

 

[sylvanu]

Bonjour Dodineau,
On peut le faire, voir PJ.
La macro copie les lignes de code de A1 à A12 dans Feuil1. Avec :

Sub InsertionMacroFeuilles()
Dim X%, i%
X = Range("A65500").End(xlUp).Row
With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule
    For i = 1 To 12
        .InsertLines X + i, Cells(i, "A")
    Next i
End With
End Sub

ceci dit, il me semble beaucoup plus simple de faire une feuille Modèle avec la macro incorporée et de l'exporter en temps que nouveau fichier. C'est plus souple et plus facilement maintenable.