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

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:

---

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:

---

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

---

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

Code:

---

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

Essai :

Code:

---

Application.Run "comp.xla!Prog"

---

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

J'ai remplace par :

Code:

---

Application.Run "Comp.xla!Prog"

---

Marche parfaitement :lol:
Merci aalex_38

Citation:

---

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() :ccool:

OOOOOps, je viens de m’apercevoir que

Code:

---

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" ?

Essai avec

Code:

---

ActiveWorkbook.save

---

Sinon tu peux instancier un classeur avec le nom de celui-ci a l'ouverture, mais il faudrait voir comment tu ouvres etude et etude2.
A+

Citation:

---

Envoyé par aalex_38

Essai avec

Code:

---

ActiveWorkbook.save

---

---

:ccool: Merci