Impossible d'executer une macro d'un autre fichier

Bonjour,

Je me retourne vers vous car je n'arrive pas a executer une macro dans un autre fichier xls en utilisant les fonctions:

Code:

---

1 2	CallByName Application, "Run", VbMethod, _ DirPath & "BT.xls!Module1.FichierSimulation, Frame"

---

ou avec celle la:

Code:

---

Result = Application.RunDirPath & "BT.xls!Module1.FichierSimulation, Frame")

---

Ma macro s'appelle "FichierSimulation" et elle est definie dans le Module1 du fichier BT.xls et Frame est un parametre que je passe a la macro.

j'ai tj une erreure du type 1004 cad Macro introuvable et je ne comprends pas pourquoi il ne la trouve pas.

Si qq a une idee sur ce type de probleme ou comment resoudre ce probleme, j'ai beau cherche dans le forum et je n'ai trouve pourquoi ca ne focntionne pas.

Merci d'avance

Bonjour,

Il faut encadrer le nom de la procédure et son parametre avec des apostrophes, ainsi que le chemin complet du fichier. Le nom du module est superflu. il n'y a pas de virgule entre le parametre et le nom de la procedure. Enfin si le parametre est de type String il faut l'encadrer avec deux "".

Code:

---

1 2	CallByName Application, "Run", VbMethod, _ "'" & DirPath & "BT.xls'!'FichierSimulation ""Frame""'"

---

Ou plus simplement:

Code:

---

Application.Run "'" & DirPath & "BT.xls'!'FichierSimulation ""Frame""'")

---

Par contre tu ne peux pas récupérer le résultat d'une fonction comportant des parametres lorsque elle est appelée avec Run, mais bon ca se contourne si nécessaire.

Cordialement,

Tirex28/

Bonjour,

Merci pour ta reponse, mais j'ai tj le meme probleme avec ou sans les guillemets dans les 2 cas j'ai 1004 runtime error Application define or object define-error.
Or la macro existe bien et si j'ouvre le fichier, je peux l'executer sans probleme. De plus oui , je veux recuperer les reponses de l'execution de cette macro.

Merci d'avance

Re,

Citation:

---

Envoyé par tirex28

Application.Run "'" & DirPath & "BT.xls'!'FichierSimulation ""Frame""'")

---

Oups, il y avait une parenthese en trop qui trainait a la fin.

Vérifie que le chemin est correct et se termine bien par "\" et que tu n'oublie aucun ' ou ".

Pour ce qui est de la recuperation du resultat il faut tricher un peu. Dans le module qui contient ta fonction FichierSimulation tu déclare une variable et une autre fonction:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim R Public Function ResultatFichierSimulation() ResultatFichierSimulation = R 'Renvoie le resultat de la fonction End Function   Public Function FichierSimulation(lesparametres) Dim MonResultat 'Une variable temporaire 'Le code déterminant le résultat R = MonResultat 'Mise a jour de la variable module FichierSimulation = MonResultat 'Sortie de la fonction End Function

---

Il suffit ensuite d'appeler les deux fonctions l'une apres l'autre avec la méthode Run.

Code:

---

1 2 3 4 5

Dim Rfs With Application .Run "'" & dirpath & "BT.xls'!'FichierSimulation ""Frame""'" Rfs = .Run("'" & dirpath & "BT.xls'!ResultatFichierSimulation") End With

---

Cordialement,

Tirex28/

Salut Tirex,

Desole mais j'ai tj la meme erreur 1004 macro not founded. Il ouvre bien le fichier (il le trouve a l'adresse indiquee), mais c'est comme si il ne trouvait pas la macro dans ce fichier (comme aucune autre d'ailleurs). Il ne faut pas lui dire d'enable les macros lorsqu'il ouvre le fichier ? et si oui comment faire ?

Merci

Tu certifie les macros de ton classeur et une fois le certificat enregistrer et accepter, tu n'aura plus de probleme

Salut ,

Mes macros sont a Low Level Security. Je ne sais pas comment les certifiees, et si je veux creer une Digital Signature il ne me presente rien comme certificat.

Bonsoir,

Citation:

---

Envoyé par gilles06

Il ouvre bien le fichier (il le trouve a l'adresse indiquee),

---

Je n'avais pas capté que le fichier était fermé .. meme si ca ne change rien en ce qui me concerne ca continue de fonctionner(xl2003).

Essaye de procéder par étape:
- Ouverture du fichier
- Lancement de la 1ere fonction
- Lancement de la 2eme fonction pour récupérer le résultat de la 1ere

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim DirPath As String Dim MyBook As Workbook Dim Rfs   DirPath = "C:\....\"   With Application .EnableEvents = False Set MyBook = .Workbooks.Open(DirPath & "BT.xls") .Run MyBook.Name & ".xls!'FichierSimulation ""Frame""'" Rfs = .Run(MyBook.Name & ".xls!ResultatFichierSimulation") .EnableEvents = True End With

---

Citation:

---

Envoyé par gilles06

Il ne faut pas lui dire d'enable les macros lorsqu'il ouvre le fichier ? et si oui comment faire ?

---

Normalement les macros sont automatiquement actives dans un classeur ouvert par macro, tu peux le verifier avec cette instruction:

Code:

---

1 2	'Affiche vrai si les macros sont activés quand on ouvre un classeur par macro MsgBox Application.AutomationSecurity = msoAutomationSecurityLow = True

---

Cordialement,

Tirex28/

Salu Tirex,

Tu as raison sur le fait qu'il faut que le fichier soit ouvert pour qu'il trouve la macro, et de plus lorsque je cherchais a activer la macro je lui mettais le chemin complet or il ne faut pas.
Je l'ai implemente comme ca et ca fonctionne tres bien :

Code:

---

Application.RunDirPath & "BT.xls!Module1.FichierSimulation, Frame")

---

Par contre ne pas oublier d'ouvrir le fichier avant.

merci a tous