Discussion :

[yzmalc]

Bonjour le forum,

je souhaite copier/coller plusieurs userform d'un classeur à un autre avec tous les codes vba qui s'y trouvent.
pour bien être précis je veux exporté le formulaire du classeur original et que il soit importer dans le nouveau classeur automatiquement.
et si c'est possible de ne pas copier le formulaire sur le bureau que le copier coller soit fait automatiquement a partir de thisworkbook du classeur source.

Merci d'avance

[Thumb down]

Bonjour,
Il te suffis de faire un enregistrer sous de ton fichier et de sélectionner l'optionton modèle avec Macros XLTM.

Ainsi tu pourras ouvrir plusieurs fois ton modèle et a l'enregistrement il te proposera de saisir un nouveau nom comme quand tu fait nouveau classeur dan Excel!

[yzmalc]

Bonjour,
Il te suffis de faire un enregistrer sous de ton fichier et de sélectionner l'optionton modèle avec Macros XLTM.

Ainsi tu pourras ouvrir plusieurs fois ton modèle et a l'enregistrement il te proposera de saisir un nouveau nom comme quand tu fait nouveau classeur dan Excel!

Bonjour,
je n'ai rien compris de votre message désolé

[Thumb down]

Tu as la possibilité de créer un fichier excel de type modèle {XLTM}.

Il te sera donc possible de créer un nouveau classeur vierge sur la base de ce modèle qui contiendra tes Userform,tes macros et même des onglets du modèle.

[yzmalc]

Tu as la possibilité de créer un fichier excel de type modèle {XLTM}.

Il te sera donc possible de créer un nouveau classeur vierge sur la base de ce modèle qui contiendra tes Userform,tes macros et même des onglets du modèle.

ça ne fonctionne pas moi je veux un code vba

[Thumb down]

Bien sur que ça fonctionne !

Toi tu veux copier coller par macros tes Userform d'un classeur à l'autre.

Alors qu'il suffit toujours par Macro d'ouvrir un niveau classeur sur la base de ton modèle et d'y copier tes données !

personnellement je n'autorises pas la possibilité de manipuler le projet vba pour y ajouter, supprimer ou modifier les macros par programme question de sécurité!

[hyperion13]

Le Roy a dit : "Nous voulons"

ça ne fonctionne pas moi je veux un code vba

Puisque vous voulez automatiser votre "copier/coller" d'USF, je vous propose de consulter cette page

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub ExportInportUSF()
' reference : Microsoft Visual Basic for Applications Extensibility 5.3
Dim xlWbk As Workbook
Dim arr As Variant
Dim strFilepath As String
Dim strExt As String, strExt1 As String
Dim i As Long
 
strFilepath = ThisWorkbook.Path & "\"
strExt = ".frm"
strExt1 = ".frx"
 
arr = Array("Usf_1", "Usf_2", "Usf_3", "Usf_4")
Set xlWbk = Application.Workbooks.Add
For i = 0 To 3
    ThisWorkbook.VBProject.VBComponents(arr(i)).Export strFilepath & i & strExt
    With xlWbk
        .VBProject.VBComponents.Import strFilepath & i & strExt
    End With
    Kill strFilepath & i & strExt
    Kill strFilepath & i & strExt1
Next i
 
End Sub