Copie de Userform entre classeurs

Bonjour,

J'ai un classeur Excel qui me permet d'initialiser un certain nombre d'autres classeurs. Dans ces classeurs, j'exécute des macros que j'appelle via un UserForm.

J'ai réussi à recopier le code de mon module d'origine en faisant ainsi :

Code:

---

1 2	Set VBC = nouvo.VBProject.VBComponents.Add(vbext_ct_StdModule) VBC.CodeModule.AddFromString (v_Code)

---

Ca fonctionne bien, je retrouve mon code dans tous les classeurs que je crée. Je souhaiterai faire la même chose avec ma UserForm générique mais je n'ai pas trouvé de méthode aussi simple. Je n'ai que ceci :

Code:

---

1 2 3 4 5 6

v_path_frm = current.Path & "\Export.frm" v_path_frx = Replace(v_path_frm, "frm", "frx") current.VBProject.VBComponents("MaUserForm").Export Filename:=v_path_frm nouvo.VBProject.VBComponents.Import Filename:=v_path_frm Kill v_path_frm Kill v_path_frx

---

Ca fonctionne mais mon antivirus me crie dessus dès que je sauvegarde mon classeur maître car il détecte du code suspect à cause de l'appel à Import ...

Est-ce qu'il y a une autre solution pour dupliquer ma UserForm d'origine dans tous mes classeurs que je crée ?

Autre question au passage : dans mon classeur maître, j'ajoute les références Microsoft DAO et Microsoft ActiveX. Seul hic, elles ne sont plus cochées dans les classeurs que je crée... Comment faire une sorte d'héritage des références entre mes classeurs ?

Merci d'avance.

bonjour pompidouwa,

pour l'ajout des références,

Code:

---

1 2 3 4 5 6

With ThisWorkbook.VBProject.References 'DAO -> "Microsoft data objects 3.6 librairy" .AddFromGuid "{00025E01-0000-0000-C000-000000000046}", 0, 5 'ADODB -> "Microsoft Activex data objects 2.8 librairy" .AddFromGuid "{2A75196C-D9EB-4129-B803-931327F72D5C}", 2, 8 End With

---

ce code ne peut être executer en mode pas à pas, seulement à partir de la feuille.

isabelle

Salut Isabelle,

Merci, ça marche impec ! J'ai adapté ton code pour ne pas mettre en dur les GUID, Major et Minor et éviter les problèmes de version entre les références.

Pour ma première question, je suis toujours preneur d'une autre solution 8-)

bonjour pompidouwa,

quel est ton antivirus ?

isabelle

Salut,

C'est Antivir, il détecte l'Import à cause d'une heurustique. Mais au boulot, c'est symantec et il ne me dit rien. Donc ce n'est pas un problème bloquant, mais j'aurais aimé trouver un autre moyen pour dupliquer mon UserForm que de passer par un Export/Import (je trouve un peu sale ^^).

bonjour pompidouwa,

as-tu coché "Faire confiance au projet Visual Basic" dans la sécurité des macros ?

isabelle

Oui, sinon il plante.

une autre possibilité serait d'enregister ton fichier au nom du nouveau fichier,
y inserer des feuilles modelle (créer spécialement pour), et virer tout le reste.

isabelle