Copier un userform dans une autre classeur par macro

bhbh à dit:

Bonjour,

Re, JP

essaie ce code, si ton USF s'appelle bien UserForm1

Code:

Sub Importer_Exporter_Userform()
Dim Fichier As String
LePath = ActiveWorkbook.Path & "\"
Fichier = LePath & "CopieUsf.frm"
ThisWorkbook.VBProject.VBComponents("UserForm1").Export Fichier
Workbooks("Classeur92_v1.xls").VBProject.VBComponents.Import Fichier
Kill Fichier
Fichier2 = LePath & "CopieUsf.frx"
Kill Fichier2
End Sub

Nota, si tu as un message d'erreur, comme quoi l'accès au code n'est pas fiable, tu vas dans Outils/Macros/Sécurité, et dans l'onglet "Editeurs Approuvés", tu coches "Faire confiance au projet Visual Basic"

Cliquez pour agrandir...