Discussion :

[gadget27]

bonjour,

je recherche des renseignements pour pouvoir inserer du code vba dans une macro en faisant une insertion automatiquement a laide d'une autre macro.



le but final de cette manipulation est en cas d'ajout dans le classeur excel il recherche la ligne de cette ajout automatiquement et fait le petit traitement.


merci a vous tous,

[ouskel'n'or]

Regarde là, signé Cafeine
Pour créer un module, tu as également ça dans "Vos contributions VBA"
A+

[gadget27]

merci bien mais ce code ne semble pas fonctionner,a moins que j'ai louper une etape, mais je vais continuer mes recherches pour trouver queslque chose.

[ouskel'n'or]

Tiens, bbil avait mis ça sur le forum mais je n'ai pas retrouvé le thread

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 ajouterUnModuleEtInsererDesLignesDeCode() 'Généreusement offert par bbil
Dim W As Workbook
Dim vbM As VBComponent
    Set W = Workbooks.Add 'ajoute un nouveau document
    Set vbM = W.VBProject.VBComponents.Add(vbext_ct_StdModule) 'Crée un module
 
    'Insertion des lignes de code
    vbM.CodeModule.InsertLines 1, "Sub Bonjour"
    vbM.CodeModule.InsertLines 2, "  msgBox ""Bonjour Bienvenu dans nouveau classeur : "" & ThisWorkBook.Name"
    vbM.CodeModule.InsertLines 3, "End Sub"
 
    'Appel procedure crée..
    Application.Run W.Name & "!Bonjour"
End Sub

A+

[gadget27]

merci bien ,

j'ai trouve une reponse aussi dans la partie IV. Gérer les modules et les procédures ensuite creation sur :
http://silkyroad.developpez.com/VBA/...cEditor/#LIV-A

un peu de modif pour l'adapter