Appel procédure d'une macro complémentaire a l'ouverture du classeur

**jeje00** · 16/06/2009, 15h43

Bonjour,

J'ai créé un fichier macro complémentaire (appelé comp.xla).
Dans ce fichier .XLA, j'ai créé un module appelé "module1" ou j'ai 5 procédures "Sub" et 4 fonctions "Function". Ma Sub principale s'appelle "Prog()".

J'ai ensuite intégré le fichier macro complémentaire dans la liste des macros complémentaires a utiliser lors de l'ouverture d'Excel (Outils, macro complementaires...).

Maintenant, j'ai un classeur Excel appelé etude.xls. Lorsque j'appelle Prog() a partir de Outils, Macro, démarrer macro, ca marche, c'est parfait.

Mon but est que la procédure Prog() soit appelé automatiquement a chaque ouverture du classeur Excel appelé etude.xls (et etude2.xls aussi)

Mon problème est quand j'essaie d'intégrer la ligne "Call Module1.Prog" dans :

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
 
Call Module1.Prog
 
End Sub

du classeur etude.xls, j'ai l'erreur 424 car l'objet n'est pas trouvé

alors j'essaie :

Code :

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

Call Workbooks("Comp.xla").Module1.Prog

et j'obtiens : run-time error '438' : Object doesn't support this property or method

Code :

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

Call Workbook("Comp.xla").Module1.Prog

et j'obtiens : Compile error : Sub or Function not defined

Ma question est que dois-je donc écrire pour que ca fonctionne ? :-)

Merci

**aalex_38** · 16/06/2009, 15h48

Essai :

Code :

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

Application.Run "comp.xla!Prog"

**garion28** · 16/06/2009, 15h48

tu peu utiliser les procédure de ta macro complémentaire sur ton pc quand tu le veu ?

enfin en tout cas les macro complémentaire ont besoin d'etre activé (par clique dessus ou autrement)

c'est ce que j'ai constaté avec une macro de calendrier graphique

**jeje00** · 16/06/2009, 15h52

J'ai remplace par :

Code :

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

Application.Run "Comp.xla!Prog"

Marche parfaitement

Merci aalex_38

**jeje00** · 16/06/2009, 15h56

Envoyé par garion28

tu peu utiliser les procédure de ta macro complémentaire sur ton pc quand tu le veu ?

enfin en tout cas les macro complémentaire ont besoin d'etre activé (par clique dessus ou autrement)

c'est ce que j'ai constaté avec une macro de calendrier graphique

Oui, je peux les utiliser quand je le veux il suffit d'ecrire le nom de la Sub ou Function dans "Lancer macro" ou alors ecrire dans une cellule =NOM_Function()

**jeje00** · 16/06/2009, 16h12

OOOOOps, je viens de m’apercevoir que

Code :

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

ThisWorkbook.Save

n’enregistre pas mon classeur, par quoi dois-je remplacer "ThisWorkbook" sachant que je ne veux pas mettre workbook("etudes.xls") étant donné que j'ai aussi "etudes2.xls" ?