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

[JPDU92]

Merci, ça marche trés bien, j'ai rajouté un code pour supprimer l'userform de la destination. Le seul hic, c'est que j'ai une erreur 1004 et que je dois résoudre, enfin je l'ai résoulu mais seulement sur mon poste, en cochant la case dans sécurité pour la fiabilité de la macro, mais je vais pas passer partout dans l'entreprise pour cocher sur tous les postes, je fais comment ? Y a pas un code pour ça ???

[fring]

Bah...si on réfléchit 37 secondes, un code permettant d'auto-activer la fiabilité de la macro, elle servirait à quoi la sécurité ?

[JPDU92]

Ben oui, je sais, mais bon, la macro ne sert à rien alors !

[fring]

Désolé, je n'ai pas de solution pour contourner ce problème

[JPDU92]

Y a pas un code pour faire apparaitre la boite de dialogue de cette sécurité, car je trouve pas, enfin, je cherche...

[JPDU92]

Bon, ben on y peut rien ! Effectivement, la sécurité, c'est là sécurité ! Mais bon, pas grave, j'ai trouvé un code vbs qui désactive tout ça ! Comme ça, je coche et ensuite je décoche... Mais ceci est une autre histoire...

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
Dim wsh, objXl
 
'Pour s'assurer qu'excel n'est pas ouvert.
 
On Error Resume Next
Set objXl=GetObject(,"Excel.Application")
If Not IsEmpty(objXl) Then
Msgbox "Fermer excel pour exécuter ce scr1pt...",64,"La direction"
WScript.Quit
else
Set objxl=createobject("Excel.Application")
Ver = objxl.Version
set objxl = nothing
End If
Err.Clear
 
Set wsh = WScript.CreateObject("WScript.Shell")
 
'Niveau de sécurité 2 pour 2ième niveau
wsh.RegWrite "HKCU\Software\Microsoft\Office\" & _
Ver & "\Excel\Security\Level",2,"REG_DWORD"
 
if ver >= 10 then
'Faire confiance au projet VBA -> 1 pour que la case soit cochée
'         -> 0 pour que la case soit décochée
wsh.RegWrite "HKCU\Software\Microsoft\Office\" & _
    Ver & "\Excel\Security\accessVBOM",1,"REG_DWORD"
 
'Faire confiance au modèle -> 0 pour que la case soit cochée
'     -> 1 pour que la case soit décochée
wsh.RegWrite "HKCU\Software\Microsoft\Office\" & _
Ver & "\Excel\Security\DontTrustInstalledFiles",0,"REG_DWORD"
end if

Merci beaucoup...