Discussion :

[jcgonzales]

Bonjour,

J'utilise beaucoup les macros du classeur perso.xls ce qui présente l'avantage de toujours avoir les macro sous la main. L'essentiel de ces macro est d'ouvrir un fichier texte issu d'un AS400, de le mettre en forme et des présenter les informations sous forme de stats.

Je viens de découvrir récemment les macros évènementielles, dont la fonction Worksheet_SelectionChange qui me permet de déclencher l'affichage d'une courbe lorsqu'une cellule est cliquée.

Mon problème est qu'il s'agît d'un fichier texte donc à la base vide et sans code attaché à la feuille, et je souhaiterai que dans mes macros d'ouverture et de mise en page (qui se trouve dans perso.xls) je puisse générer le code associé à cette feuille, en quelque sorte une macro qui générerai le code d'une macro !

Est-ce possible ?
existe-t-il un tuto sur le sujet ?

Merci pour votre aide

[aalex_38]

Bonjour,


regarde par là, je pense que tu y trouveras beaucoup de choses intéressantes.

[jcgonzales]

Chapeau pour la réponse rapide, je vais essayer de trier dans les exemples de ce document, mais j'aurai évidement apprécié si qqu'un pouvait me dire si le principe de la macro qui génère une autre macro était envisageable...

[aalex_38]

le principe de la macro qui génère une autre macro était envisageable

Justement regarde le lien que je t'ai donné et tu verras que l'on peut avec les vbcomponents, créer, modifier, supprimer des macros.

Dans la section contribuez tu dois aussi avoir des exemples.

[jcgonzales]

Ca y est, j'ai trouvé "une" solution que j'ai mise en application :


Sauvegarde du code associé à la feuille (l'onglet) "feuil1" de PERSO.XLS :

Code :

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

1
2
    Set modObj = ThisWorkbook.VBProject.VBComponents.Item("feuil1")
    strCode = modObj.CodeModule.Lines(1, modObj.CodeModule.CountOfLines)

Copie du code sur la feuille (l'onglet) "feuil2" du fichier créé "from scratch" :

Code :

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

1
2
    Set modObjTGT = ActiveWorkbook.VBProject.VBComponents.Item("feuil2")
    modObjTGT.CodeModule.AddFromString (strCode)

Merci pour les pistes de rercherche...