Discussion :

[AnneLiseA]

Bonjour,

Je souhaite copier le code d'une macro contenu dans un module de mon fichier .xlam dans un autre fichier excel.
Le code suivant fonctionne mais il m'affiche un message d'erreur à la ligne Set modObj =Application.VBE.ActiveVBProject.VBComponents.Item("Graph"). Si je clique sur débogage et que je relance la macro elle se termine directement.
C'est juste que la ligne Workbooks("Prévisions.xlam").Activate ne doit pas fonctionner et le fait d'ouvrir la fenêtre visual basic lors de débogage permet d'activer le fichier "Prévision.xlam".

Le programme doit fonctionner en automatique, les utilisateurs ne doivent pas avoir à cliquer sur débogage et à relancer la macro.

J'aurais voulu savoir comment résoudre ce problème. Y a-t-il un autre moyen d'activer un fichier .xlam pour récupérer le code d'un module? Existe-t-il un moyen automatique (à partir du code) d'ouvrir et de fermer l'éditeur visual basic sans que l'utilisateur ait à intervenir?

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
Sub ajout_macro(nom_fichier)
'Copier la macro dans le fichier "RefStats"
    Dim strCode As String
    Dim vbCom As VBComponent
    Dim modObj As Object
 
    ' Select source document
    Workbooks("Prévisions.xlam").Activate
    ' Set object to the module you want to export.
    Set modObj = _
        Application.VBE.ActiveVBProject.VBComponents.Item("Graph")
    ' Place code in a string.
    strCode = modObj.CodeModule.Lines(1, modObj.CodeModule.CountOfLines)
    ' Select destination document
    Windows(nom_fichier).Activate
    ' Create a new module in workbook.
    'Application.VBE.ActiveVBProject.VBComponents.Add (vbext_ct_StdModule)
        Set Wb = Workbooks(nom_fichier)
        Wb.VBProject.VBComponents("Feuil1").CodeModule.InsertLines 1, strCode
    ' Add code to new module from string variable.
    'Application.VBE.ActiveVBProject.VBComponents.Item("Module1") _
        .CodeModule.AddFromString (strCode)
End Sub

Merci à ceux qui prendront le temps de lire ce post.

Bonne journée.

Anne Lise

[Menhir]

Ruban Fichiers > Options > Options avancées > (presque à la fin) Au démarrage, ouvrir tous les fichiers du dossier
Dans le champ, tu mets un chemin de répertoire.
Dans ce répertoire, tu places ton fichier xlam et il sera ouvert systématiquement quand tu ouvrira Excel.

[AnneLiseA]

Bonjour Menhir,

Merci pour ta réponse aussi rapide.
En fait, le fichir xlam est toujours activé, j'ai toujours accès aux macros de mon fichier xlam, le problème est de l'activer "physiquement" comme on active un fichier excel classique pour travailler dessus sauf que l'activation du fichier xlam par code vba ne fonctionne pas comme les fichiers classiques et pour l'instant à part en ouvrant l'éditeur visual basic je n'ai pas trouvé d'autre solution.

[AnneLiseA]

Bonjour galopin01,

Il est bien coché dans complément. Toutes les macros du fichier marche correctement.
Le souci est juste de l'activer "physiquement" pour récupérer le code d'un module.
Pour un fichier excel classique, le .Activate permet d'activer le fichier et de travailler avec, de le modifier... mais cela ne fonctionne pas avec un fichier xlam.

Arrivé à la ligne Set modObj = Application.VBE.ActiveVBProject.VBComponents.Item("Graph"), j'ai le message d'erreur "L'indice ne fait pas partie de la sélection" car "Graph" est un module du .xlam et non du point xlsm actif à ce moment là. Lorsque je relance la macro, il arrive à passer cette ligne parce que le fichier .xlam devient actif à l'ouverture de la fenêtre de l'éditeur visual basic.

[clementmarcotte]

Bonjour,

Si tu es sûre qu'il est ouvert dans ta session d'Excel, et qu'il n'est (surtout) pas protégé, tu as juste à cliquer sur son icône dans l'Explorateur de projets de l'éditeur VBE.

[AnneLiseA]

Bonjour clémentmarcotte,

Je suis bien d'accord avec toi mais j'aimerais faire la même chose par le code. Le but est que tout soit automatique, les utilisateurs ne doivent pas avoir de manipulations à faire.