copier et coller les userform

Version imprimable

05/07/2022, 11h52
yzmalc

copier et coller les userform

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
05/07/2022, 12h09
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!
05/07/2022, 13h27
yzmalc

Citation:

Envoyé par 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!

Bonjour,
je n'ai rien compris de votre message désolé
05/07/2022, 13h40
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.
05/07/2022, 13h55
yzmalc

Citation:

Envoyé par 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.

ça ne fonctionne pas moi je veux un code vba
05/07/2022, 16h16
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é!

Le Roy a dit : "Nous voulons" :weird:

Citation:

Envoyé par yzmalc

ç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:

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