Exporter et réimporter userform et module + macro

Bonjour à tous

j'ai un petit soucis d"exportation de copie, c'est que j'aimerai que par exemple l'userform 1 s'exporte aussi ainsi que la macro 1,

mais quand j'exporte ma copie elle est enregistrer sous un nom different à chaque fois

si quelqu'un aurai une idée se serai super génial

j'aimerai l'intégrer dans se bout de code

merci

Private Sub CommandButton6_Click()
'derniere facture effectué:
'date
Worksheets("Acceuil").Range("O24").Value = Worksheets("MODELE").Range("H18").Value
'nom
Worksheets("Acceuil").Range("Q24").Value = Worksheets("MODELE").Range("C4").Value
'montant
Worksheets("Acceuil").Range("S24").Value = Worksheets("MODELE").Range("G1").Value
ActiveSheet.Copy
If Range("B2").Value = "FACTURE" Then
ChDir "D:\Ent new 2\Data\Facture"
Application.Dialogs(xlDialogSaveAs).Show CStr(ActiveSheet.Range("L9") & " " & Range("C4").Value)
Fichier = "D:\Ent new 2\Data\Facture\" & [L9].Value & " " & [C4].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
MsgBox "" & f1 & " sauvé"
ActiveWorkbook.Close savechanges:=False

Bonjour

pour exporter un Module ou un Userform

ThisWorkbook.VBProject.VBComponents.Export "Mon Repertoire" & "\Module1.bas"

ThisWorkbook.VBProject.VBComponents.Export "Mon Repertoire" & "\UserForm1.frm"

pour importer tu remplace Export par Import

Bonjour

merci pour la réponse rapide mais comment l'integrer à mon code

cordialement

si tu veux le mettre dans le même répertoire

tu met ça juste avant End If

ThisWorkbook.VBProject.VBComponents("module1").Export ("D:\Ent new 2\Data\Facture\module1.bas")

'remplace "module1" par le nom de ton module

ThisWorkbook.VBProject.VBComponents("UserForm1").Export ("D:\Ent new 2\Data\Facture\UserForm1.frm")

'remplace "UserForm1" par le nom de ton module

If Range("B2").Value = "FACTURE" Then

ThisWorkbook.VBProject.VBComponents("Divers").Export ("D:\Ent new 2\Data\Facture\module1.bas")
'remplace "module1" par le nom de ton module
ThisWorkbook.VBProject.VBComponents("UserForm4").Export ("D:\Ent new 2\Data\Facture\UserForm1.frm")

ChDir "D:\Ent new 2\Data\Facture"
  Application.Dialogs(xlDialogSaveAs).Show CStr(ActiveSheet.Range("L9") & " " & Range("C4").Value)

Fichier = "D:\Ent new 2\Data\Facture\" & [L9].Value & " " & [C4].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False

ThisWorkbook.VBProject.VBComponents("module1").Import ("D:\Ent new 2\Data\Facture\module1.bas")
'remplace "module1" par le nom de ton module
ThisWorkbook.VBProject.VBComponents("UserForm1").Import ("D:\Ent new 2\Data\Facture\UserForm1.frm")

End If

re

j'ai essayerle code ci dessus mais ca me mais l'indice ne correspont pas a la selection à partir de import

je sait pas

Divers est le nom du module à importer

Userform4 est le nom de l'userform à importer

merci

tu avais demandé pour exporter

pour importer c'est ça :

Workbooks("Le Nom de ton Classeur.xls").VBProject.VBComponents.Import ("D:\Ent new 2\Data\Facture\Module1.bas")

pareil pour UserForm1.frm