Copier un userform dans une autre classeur par macro

[davidm]

Bonjour le forum,

Est il possible de copier un userform dans un autre classeur excel (que l'on vient de créer par exemple) à l'aide d'une macro ?

Merci d'avance

Davidm

 

[jeanpierre]

Re : Copier un userform dans une autre classeur par macro

Bonjour davidm,

Deux solutions :

Sous VBE et dans l'explorateur de projet, tu selectionnes ton USF et tu l'exportes et ensuite tu te positionnes sur ton autre classeur et tu importes.

Sinon, tu peux faire un glisser-déposer d'un projet vers l'autre, comme dans l'explorateur windows.

A te lire.

Jean-Pierre

 

[Cousinhub]

Re : Copier un userform dans une autre classeur par macro

Bonjour,

Re, JP

essaie ce code, si ton USF s'appelle bien UserForm1

Sub Importer_Exporter_Userform()
Dim Fichier As String
LePath = ActiveWorkbook.Path & "\"
Fichier = LePath & "CopieUsf.frm"
ThisWorkbook.VBProject.VBComponents("UserForm1").Export Fichier
Workbooks("Classeur92_v1.xls").VBProject.VBComponents.Import Fichier
Kill Fichier
Fichier2 = LePath & "CopieUsf.frx"
Kill Fichier2
End Sub

Nota, si tu as un message d'erreur, comme quoi l'accès au code n'est pas fiable, tu vas dans Outils/Macros/Sécurité, et dans l'onglet "Editeurs Approuvés", tu coches "Faire confiance au projet Visual Basic"

 

[jeanpierre]

Re : Copier un userform dans une autre classeur par macro

Re, Bonjour bhbh,

Zut, voilà seulement que je réalise (ou plutôt que je lis) que c'était par macro.

 

[davidm]

Re : Copier un userform dans une autre classeur par macro

Bonjour bhbh, jeanpierre

Je viens de tester la macro et cela fonctionne parfaitement.

Merci beaucoup et à bientot sur le forum.

Davidm

 

[yves03]

Re : Copier un userform dans une autre classeur par macro

Bonjour,

Re, JP

essaie ce code, si ton USF s'appelle bien UserForm1

Sub Importer_Exporter_Userform()
Dim Fichier As String
LePath = ActiveWorkbook.Path & "\"
Fichier = LePath & "CopieUsf.frm"
ThisWorkbook.VBProject.VBComponents("UserForm1").Export Fichier
Workbooks("Classeur92_v1.xls").VBProject.VBComponents.Import Fichier
Kill Fichier
Fichier2 = LePath & "CopieUsf.frx"
Kill Fichier2
End Sub

Nota, si tu as un message d'erreur, comme quoi l'accès au code n'est pas fiable, tu vas dans Outils/Macros/Sécurité, et dans l'onglet "Editeurs Approuvés", tu coches "Faire confiance au projet Visual Basic"

Bonjour a tous,

J'ai essaye d'utiliser ce code dans mon classeur, pour copier mon userform vers un autre classeur, mais ça ne fonctionne pas.
J'ai remplace Userform1 par le nom de mon userform "Suivi".
J'ai mis cette macro dans un module, est ce bien ça ?
Merci de votre aide.

 

[yves03]

Re : Copier un userform dans une autre classeur par macro

Je vous joint mon fichier
Merci d'avance