Est-ce possible ?

[Bastien]

Bonsoir à toutes et à tous,
Voilà mon problème: J'ai un userform avec un bouton, qui lorsqu'il est appuyé, parcours une colonne de la feuille et créé autant de classeur que de cellule remplie.
Ma question: est-il possible d'affecté une macro à chaque nouveau classeur créé grâce au bouton et si oui, comment faire ?
J'espère que vous m'avez compris.
Merci d'avance.

 

[Etienne2323]

Re : Est-ce possible ?

Salut Bastien,
voici comment je procède.

Dans mon exemple, le module que je souhaite copier s'appelle "Module2". Tu n'auras qu'à modifier en fonction du nom du module que tu souhaites copier.

Option Explicit

Public Function Exporter_Module()

Dim Le_Code As String, Nom_Classeur As String, Module_Copie As String
Dim Le_Module As Object, Nouv_Module As Object
Dim Classeur

Application.ScreenUpdating = False

Module_Copie = "Module2" 'À modifier manuellement. Il s'agit du module à copier dans le nouveau classeur

Set Le_Module = Application.VBE.ActiveVBProject.VBComponents.Item(Module_Copie)
Le_Code = Le_Module.CodeModule.Lines(1, Le_Module.CodeModule.CountOfLines)
Set Classeur = Application.Workbooks.Add
Nom_Classeur = Classeur.Name
Set Nouv_Module = Workbooks(Nom_Classeur).VBProject.VBComponents
Nouv_Module.Add (vbext_ct_StdModule)
Nouv_Module("Module1").CodeModule.DeleteLines 1, Nouv_Module("Module1").CodeModule.CountOfLines
Nouv_Module.Item("Module1").CodeModule.AddFromString (Le_Code)
Nouv_Module.Item("Module1").Name = Module_Copie

Set Le_Module = Nothing
Set Classeur = Nothing
Set Nouv_Module = Nothing

End Function

Cordialement,

Étienne