Discussion :

[JPDU92]

Bonjour à tous, si vous pouviez m'aider (encore une fois) sur un petit probléme, en fait, j'essaye d'exporter et d'importer un userform avec ses codes depuis un classeur pour des mises à jour sur un autre classeur, tout ça par un autre classeur qui n'a rien a voir avec les deux précédents. Seulement, ça ne marche pas, j'ai plusieurs pistes mais aucune fonctionne ! Vous pourriez m'aider ???

[zazaraignée]

Sans voir comment tu essaie d'exporter/importer cet UserForm... Sans voir le code qu'il exécute (références relatives ou absolues...)... Je ne vois pas comment on pourrait.

[JPDU92]

Oui, c'est pas faux, sorry

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
 Dim Fichier As String, Repertoire As String
    Dim Wb As Workbook
    Dim fichierex2
    Dim fichierex1
    Dim objfso
    Dim i As Byte
    Dim VBcomp As VBcomponent
    Application.ScreenUpdating = False
fichierex2 = "D:\personnel\TEST\BIT PAPIER.xls"
fichierex1 = "X:\BIT PAPIER\BIT PAPIER.xls"
    '-----------------------------------
    'Export du UserForm1
    Workbooks.fichierex1.VBProject.VBComponents.Export "X:\BIT PAPIER\copieUSF.frm"
    '-----------------------------------
    With Workbooks(fichierex2).VBComponents.Remove.VBComponen ("UserForm1")
    End With

[fring]

Bonjour,

Tu as un exemple dans le tuto ci-dessous, au chapitre IV-E

http://silkyroad.developpez.com/VBA/VisualBasicEditor/

La première chose à faire, que je ne vois pas dans ton code, est d'ouvrir le fichier source et le fichier cible

[JPDU92]

Merci mais c'est là dessus que j'avais travaillé et pour être franc, je séche un peu... Surtout que dans le fichier source et destination, j'ai des userform qui se lancent tout seul ! Donc pour les ouvrir pour travailler dessus sans lancer l'automation... J'ai un soucis

[fring]

Voici le code de SilkyRoad adapté et testé, il te reste à adapter les noms et chemins des fichiers source et cible ainsi que le nom du UserForm. Les macros dans le fichier source ne seront pas exécutées.
Remarque : il n'y a pas de gestion d'erreur en cas d'existance d'un UserForm portant le même nom dans le fichier cible.

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
25
26
27
28
29
30
31
32
33
Sub Export_Import_Module_Et_Userform()
    Dim FichSource As String, FichCible As String
    Dim WbSource As Workbook, WbCible As Workbook
 
    Application.ScreenUpdating = False
    Application.EnableEvents = False
 
    FichSource = "D:\Divers\Macro\tests\Classeur_test.xls"
    FichCible = "D:\Divers\Macro\tests\Test.xls"
 
    Workbooks.Open Filename:=FichSource
    Set WbSource = ActiveWorkbook
 
    Workbooks.Open Filename:=FichCible
    Set WbCible = ActiveWorkbook
 
    WbSource.VBProject.VBComponents("UserForm1").Export "C:\copieUSF.frm"
    WbCible.VBProject.VBComponents.Import "C:\copieUSF.frm"
 
    WbSource.Close False
    WbCible.Close True
 
    Set WbSource = Nothing
    Set WbCible = Nothing
 
    Application.EnableEvents = True
    Application.ScreenUpdating = True
 
    'efface les deux fichiers créés
    Kill "C:\copieUSF.frm"
    Kill "C:\copieUSF.frx"
    MsgBox "Opération terminée."
End Sub