Copier UserForm dans nouveau classeur

Bonsoir a tous et a toute

Je suis a la recherche d'info pour pouvoir (si cet possible) de copier une UserForm (qui s'appelle Pièces1) de mon classeur original et de l enregistrer en même tant que le classeur crée avec la macro si dessous . J ai déjà chercher sur le forum et ailleurs et je trouve pas.

Si quelqu'un peut m'aider ou de m aiguiller quelle par, je suis preneur .

Si je me suis pas bien fait comprendre je me ferais un plaisir de répondre au question

Par avance merci pour l'aide

Sub Macro1_Sauvegarde_entreprise()
With Sheets("Référence Logement")
NomFichier = .Range("D6").Value & .Range("B16").Value & _
.Range("D17").Value & .Range("G13").Value & .Range("B13").Value & .Range("D13").Value & _
.Range("G13").Value & .Range("B11").Value & .Range("D11").Value & .Range("G11").Value & _
.Range("B9").Value & .Range("D9").Value & .Range("G9").Value
End With
Worksheets(Array("Fiche de Travaux", "Travaux a Faire", "Feuille de Métré", "Travaux a faire par Entreprise", "Feuille des Dimensions")).Copy
With ActiveSheet
.Unprotect
.Protect
End With
FName = "C:\toto\"
Application.Dialogs(xlDialogSaveAs).Show (FName & NomFichier), 1
ActiveWorkbook.Close
End Sub

Bonsoir,

Pourquoi ne pas réfléchir à l'envers?

C'est à dire, tu enlèves les onglets qui ne t'intéressent pas, et tu enregistres ton fichier sous un nouveau nom...

Ainsi, ton fichier originel sera inchangé...

Peut-être?

Bonjour,

Ouvrir les 2 classeurs. Aller dans VBA :

Dans la fenêtre VBA Project faire glisser le UserForm d'un classeur vers l'autre.

C'est tout.

A+

Tout d abord merci galopin01 et merci cousinhub

pour vous intéresser a mon problème.

Pour répondre a galopin01 oui tous ça je l'ai déjà vu sur le forum le glisser ....l'enregistrer....mes bon pas simple

Je cherche plutôt a le faire avec une VBA et le top serais de pouvoir compléter la mienne.

cousinhub ton idée est lumineuse mes le soucie est que dans mon classeur originel ce trouve genre 25 pages et des VBA a gogo donc

pas simple non plus .

En tout cas encore merci

je vais continue mes recherches pour voir s'il n'y a pas possibilité de compléter ma VBA

Re-,

Un exemple de code pour exporter/importer un USF :

Sub ExportImport()
Dim UsfTemp As String
Dim ThisWbk As Workbook, WbkDest As Workbook
Set ThisWbk = ThisWorkbook: Set WbkDest = Workbooks("import.xlsm")
UsfTemp = ActiveWorkbook.Path & "\" & "MonUsf.frm"
ThisWbk.VBProject. _
    VBComponents("UserForm1").Export UsfTemp
WbkDest.VBProject. _
    VBComponents.Import UsfTemp
Kill UsfTemp
End Sub

Bon courage

Merci pour ca

je vais voir ce que je peut en faire .

Je te tien au jus.

Bonne Soirée