Discussion :

[pompidouwa]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[sabzzz]

bonjour pompidouwa,

pour l'ajout des références,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pompidouwa]

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

[sabzzz]

bonjour pompidouwa,

quel est ton antivirus ?

isabelle

[pompidouwa]

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 ^^).

[sabzzz]

bonjour pompidouwa,

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

isabelle

[pompidouwa]

Oui, sinon il plante.

[sabzzz]

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