Discussion :

[gilles06]

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 :

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

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

ou avec celle la:

Code :

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

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

[tirex28]

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 :

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

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

Ou plus simplement:

Code :

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

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/

[gilles06]

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

[tirex28]

Re,

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 :

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

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 :

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

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/

[gilles06]

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

[zebulon2212]

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