Discussion :

[belfaigore]

Bonjour,

Je suis en train de réaliser une macro de mise en forme d'un classeur Excel, qui a partir d'une feuille Excel, recupère les données et les copie dans un nouveau classeur à l'image d'un model.xls.
Je voudrai savoir comment faire pour détacher le code réalisant la mise en forme afin que je puisse executer la macro sur n'importe quel nouveau classeur sans avoir a faire un copier/coller de mon code.
PS : ma macro contient également un formulaire

[repié]

je sais pas si ma réponse est totalement exacte mais tu met ton code dans le fichier Normal.dot qui est le modèle par défaut d'un nouveau fichier

Le modèle est dans le dossier

Code :

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

C:\Documents and Settings\repié\Application Data\Microsoft\Templates

[jveudvacances]

J'écrirai la macro dans le fichier Perso :
C:\Documents and Settings\NomUtilisateur\Application Data\Microsoft\Excel\XLSTART\PERSO.xls

Ensuite je créerai un bouton (manuellement) dans Excel et je lui affecterai la macro en question.
A chaque ouverture d4excel ce bouton sera visible et la macro sera dispo.

[repié]

et ton problème est-t-il résolu avec PERSO.xls?

[belfaigore]

La solution proposé par jveudvacances focntionne dans la mesure où cette methode modifie le modèle d'un nouveau classeur excel. Mais ma macro reste accessible pour un classeur enregistré.
Pour ma part je ne cherche pas à changer le modele d'un nouveau classeur excel mais juste à rajouté une macro au programme excel.
Quand à ta solution repié je suis actuellement sur mon poste de travail et je n'ai pas les droits pour pouvoir essayer, je test ce soir.
Merci.

[repié]

une macro est intégrée à un classeur et non à l'application.

Donc si tu veux qu'elle soit valable pour touts tes classeur, tu doit passer par normal.dot ou Perso.xls (je ne sais pas ce qui vaut le mieux pour toi)
Tu retombe donc un peu sur tes pattes là

[jveudvacances]

Ok donc tu cherche à copier le code de ta macro de mise en forme dans un classeur quelconque ?

[jveudvacances]

Copier le code d'un classeru vers un autre

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
 
Dim sFileName As String
Dim sCode As String
Dim xlwks1 As Excel.Worksheet
Dim xlwkbSrc As Excel.Workbook
Dim xlwkbDest As Excel.Workbooks
 
 
 
Dim sModName As String
Dim sPath As String
Dim sExt As String
Dim i, j, k As Integer
 
Dim iCompt As Integer
 
 
Application.EnableEvents = False
Set xlwkbDest = Workbooks("ClasseurDeDestination.xls")
Set xlwkbSrc = Workbooks("ClasseurSource_macro.xls")
 
 
sPath = xlwkbDest.Path
 
'pour tt les composants du classeur Src
'on va les exporter puis les impmorter dans Dest sauf si se sont des feuilles
'dans ce cas on copiera uniquement le code
 
For Each objComp In xlwkbSrc.VBProject.VBComponents
    sModName = objComp.Name
    Select Case objComp.Type
      Case vbext_ct_StdModule: sExt = ".Bas"
      Case vbext_ct_ClassModule: sExt = ".Cls"
      Case vbext_ct_MSForm: sExt = ".Frm"
    End Select
 
    sFileName = sPath & "\" & sModName & sExt
    If Len(Dir$(sFileName)) > 0 Then
      Kill sFileName
    End If
 
    'avec le fichier dest
    With xlwkbDest.VBProject
        If LCase(objComp.Name) = "thisworkbook" Then
 
            'copier le code contenu dans this worbook
            i = objComp.CodeModule.CountOfLines
            's'il y a du code alors on le copie
            If i > 0 Then
                sCode = objComp.CodeModule.Lines(1, i)
                .VBComponents(1).CodeModule.AddFromString (sCode)
            End If
 
        ElseIf objComp.Type = 100 Then
 
            'copier le code contenu dans les feuilles
 
            i = objComp.CodeModule.CountOfLines
            If i > 0 Then
                sCode = objComp.CodeModule.Lines(1, i)
                .VBComponents(objComp.Name).CodeModule.AddFromString (sCode)
            End If
 
 
        Else
 
            'exporter le module de src
            'importer le module
            'puis le détruire
            objComp.Export Filename:=sFileName
            xlwkbDest.VBProject.VBComponents.Import (sFileName)
            Kill sFileName
        End If
    End With
Next

[belfaigore]

Oki très bien merci pour ses précisions. Je pense que je vais modifier le fichier normal.dot.