Discussion :

[Mac Twist]

Bonjour,

Je cherche a affecter une macro existante dans un classeur a un autre classeur.

En fait, j'ai a la base une macro qui me cree des classeurs Excel. Je voudrais que ces classeurs Excel "fils" se voient donner la macro du classeur "pere".

En esperant avoir ete clair
Merci de votre aide

[ouskel'n'or]

Tu peux exporter et importer des macros. Pour ça, il faut faire une macro
Le code a été donné sur le forum VBA il y a peu de temps et il existe peut-être dans la FAQ.
Une recherche dans l'un ou dans l'autre...
Je regarde si j'ai ça tout fait
A+

J'ai ça qu'a donné Silky sur le forum

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
Sub ExporterUnUserform() 'Par SilkyRoad
ThisWorkbook.VBProject.VBComponents("UserForm1").Export "C:\PFC.frm"
 
End Sub
 
Sub ExporterTousLesUserforms() 'Par SilkyRoad
Dim LaForm
    For Each LaForm In ThisWorkbook.VBProject.VBComponents
        If LaForm.Type = 3 Then ThisWorkbook.VBProject.VBComponents(LaForm.Name).Export "D:\xls\" & LaForm.Name & ".frm"
    Next
End Sub
 
Sub ImporterTousLesUserformsDunRépertoire()  'd'après SilkyRoad
Dim NomFich
    NomFich = Dir("D:\xls\*.frm")
    Do While NomFich <> ""
        Application.VBE.ActiveVBProject.VBComponents.Import (NomFich)
        NomFich = Dir
    Loop
End Sub

Je pense que si tu remplaces le nom de l'userform par le nom du module et remplaces l'extension .frm par .bas, tu obtiendras ce que tu voudras.
Je fais un essai mais fais-en autant de ton côté
A+

Voilà

Code :

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

1
2
3
4
5
6
Sub ExporterUnModule() 'Selon SilkyRoad
ThisWorkbook.VBProject.VBComponents("Module1").Export "D:\Essai.bas"
End Sub
Sub ImporterUnModule() 'Selon SilkyRoad
        Application.VBE.ActiveVBProject.VBComponents.Import ("D:\Essai.bas")
End Sub

A+

[Mac Twist]

Je m'y mets de suite...merci

aie...Ca ne passe pas.

Excel me renvoit le message d'erreur suivant;

Run-time error '1004':

Programmatic access to Visual Basic Project is not trusted

Pour les debutants comme moi, voici la reponse:

Tools->Options->Security->Macro Security->Trusted Sources

Puis en bas de la fenetre vous cochez: "Trust access to Visual Basic Project"

Une petite recherche n'a jamais fait de mal.

Merci