Copie d'un userform sur un autre fichier

Coucou me revoilou.

Ça faisait longtemps que je ne vous avais pas embêté.

pour m'amuser, je tente de copier un userform d'un classeur à l'autre.

J'ai trouvé un code sur Nenette, mais il plante dès les premières lignes.

erreur 50034

La methode export-vbcomponent de l'objet à échoué.

Si je clique sur USFtest dans le code il me met variable non définie

j'ai tenté en ajoutant

Dim USFtest As UserForm

dans ce cas il me mets USFtest=Nothing

Sub CommandButton1_Click()
Dim Fichier As String, Repertoire As String
    Dim Wb As Workbook
    Dim i As Byte

    Application.ScreenUpdating = False

    ThisWorkbook.VBProject.VBComponents("USFtest").Export "C:\copieUSF.frm"

    '-----------------------------------

    'Adaptez le répertoire des classeurs à modifier
   Repertoire = "I:\Travail Papa\CE1 2015 - 2016\Pour karine\projet final\modif"
    Fichier = Dir(Repertoire & "\Recep.xlsm")

    'Boucle sur les classeurs du répertoire cible
   'Do While Fichier <> ""
        Set Wb = Workbooks.Open(Repertoire & "\" & Fichier)

        '----------------------------------
        'La procédure ne gère pas les erreurs si le nom des modules existe déja
        'dans les classeurs.
   With Wb.VBProject 'Transfert l'USF et les modules dans les classeurs
            .VBComponents.Import "C:\copieUSF.frm"

       '     For i = 1 To 3
       '         .VBComponents.Import "C:\copieModule" & i & ".bas"
       '     Next i
        End With
End Sub

je vous mets le fichier en PJ

++

Troph

PS le fichier Recep.xlsm est un fichier vierge sans rien dedans....

Bonsoir Trophinou,

Il suffit d'ouvrir les 2 fichiers excel et d'aller dans Visual Basic.

Faire glisser le UserForm existant dans le 2ème et ensuite l'adapter.

En tout cas, voilà comment je procède.

Cdt

Henri

Oui ça je sais faire aussi, mais les personnes à qui je vais passer le fichier futur ne le savent pas....

sinon ça serait trop facile.

Lol

Désolé!!!

Dans ce cas, je ne peux pas t'aider.

Bonne soirée