copie d'un form d'un classeur vers un autre classeur

[vaussenat-j]

Salut à toutes et à tous,


Et oui, aujourd'hui, le judoka est de sortie (pour ceux qui m'ont déjà lu !!!)

c'est toujours pour la gestion de pesée lors des compet.

Je part d'un fichier que je qualifie de "maitre".
il contiend toutes les macros de traitement.

avant la compet, on pese les combattants, jusque là pas de pb.
mais, il y à X balances et donc, il me faut X fichiers

Je sais (avec la cde déplacer copier une feuille) copier les données dans un autre classeur.
Comment peut en faire autant pour un Form (qui servira à la saisie).


PS : je voudrai éviter l'enregistrer sous (trop de feuilles; trop de macros) égal trop de possibilité de faire des C... Bétises)

comme d'hab, un petit fichier joint.

Merci encore

GG

 

[vaussenat-j]

Resolu : copie d'un form d'un classeur vers un autre classeur

Merci à ceux qui m'on lu,

je veins de trouver la solution

(pas tout seul bien sûr)


Private Sub CommandButton1_Click()
ThisWorkbook.VBProject.VBComponents("Userform1").Export "frmtoto"
Sheets(1).Copy
ActiveWorkbook.VBProject.VBComponents.Import "frmtoto"

End Sub

il faut, dans outils macros sécurité, faire confiance au
projet.

@+

GG

 

[vaussenat-j]

Re : copie d'un form d'un classeur vers un autre classeur

Re coucou,


une dernière pour être complet.

si la feuille que vous copiez contiend un bouton, le bouton reste associé a la macro duclasseur d'origine (je ne sais pas si je suis bien claire !!!)

pour éviter çà :

deux lignes :

nom = ActiveWorkbook.Name & "!Feuil9.saisiepesee"
ActiveSheet.Shapes("pesee").OnAction = nom
a placer à la fin de la macro


et voila

GG

c'est pas cool ? je pose les question et je fais même les réponses.

serais je en progrè a votre contact ???