Comment ajouter à un classeur excel une userform

[thuan]

Bonjour le forum
Je voudrais faire la chose suivante:
j'ai sur un classeur1 deux userform:
userform1
userform2
je créer à l'aide de la userform1 un nouveau classeur: classeur2
je voudrais en plus affecter au classeur2 la userform2

Le pb c'est que je sais pas quel méthode utilisée

Merci pour votre aide

 

[Robert]

Salut Thuan, Salut le forum,

Je te propose ces quelques lignes de codes. Dans cet exemple, le premier fichier qui contient les deux UserForm est activé tandis que l’autre fichier est ouvert. Le deuxième Userform s’appelle « UserForm2 », si tu as renommé le tien, tu devras adapter la macro. Je ne sais pas si tu as ouvert ou déjà sauvé le deuxième fichier mais dans cet exemple il est considéré comme déjà sauvé et s’appelle « Class2 ». À adapter à ton cas…

La macro exporte l’Userform2 dans un fichier nommé « Essai.bas », puis elle active le deuxième fichier (Class2.xls) dans lequel elle importe le fichier « Essai.bas ». Ensuite elle supprime ce fichier de transition. Tu te retrouveras avec ton UserForm2 dans le deuxième fichier.

Public Sub test()
Application.ActiveWorkbook.VBProject.VBComponents("UserForm2").Export ("C:\Mes Documents\Essai.bas")
Application.Workbooks("Class2.xls").Activate
Application.ActiveWorkbook.VBProject.VBComponents.Import ("C:\Mes Documents\Essai.bas")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.getfile("c:\Mes Documents\Essai.bas")
fs.deletefile (a)
End Sub

À plus,

Robert