dionys0s
XLDnaute Impliqué
Bonsoir le forum
j'ai ce code (trouvé sur http://www.vbfrance.com grâce à James 007) que j'ai adapté à ma macro et qui fonctionne très bien :
En gros, je copie un module du classeur à partir duquel est lancée la procédure dans un nouveau classeur. C'est tip top youpi ça fonctionne. Mais je n'arrive pas à l'adapter pour qu'il exporte un userform en plus du module concerné (le Module4). Je pense qu'il n'y a pas grand chose à rajouter, mais je ne connais absolument pas les codes, et je n'ai rien trouvé sur la FAQ de excel.developpez.com
Merci d'avance pour votre aide
j'ai ce code (trouvé sur http://www.vbfrance.com grâce à James 007) que j'ai adapté à ma macro et qui fonctionne très bien :
Code:
' Dimension variables
Dim strCode As String
Dim vbCom As VBComponent
Dim modObj As Object
' Set object to the module you want to export.
Set modObj = _
Application.VBE.ActiveVBProject.VBComponents.Item("Module4")
' Place code in a string.
strCode = modObj.CodeModule.Lines(1, modObj.CodeModule.CountOfLines)
' Create new workbook.
ActiveSheet.Copy
' Create a new module in workbook.
Application.VBE.ActiveVBProject.VBComponents.Add (vbext_ct_StdModule)
' Add code to new module from string variable.
Application.VBE.ActiveVBProject.VBComponents.Item("Module1") _
.CodeModule.AddFromString (strCode)
En gros, je copie un module du classeur à partir duquel est lancée la procédure dans un nouveau classeur. C'est tip top youpi ça fonctionne. Mais je n'arrive pas à l'adapter pour qu'il exporte un userform en plus du module concerné (le Module4). Je pense qu'il n'y a pas grand chose à rajouter, mais je ne connais absolument pas les codes, et je n'ai rien trouvé sur la FAQ de excel.developpez.com
Merci d'avance pour votre aide