Discussion :

[wipMan]

yo

Je cherche a executer une fonction presente dans un classeur qui n'est pas celui dans lequel je suis couramment. Je connais la fonction que je souhaite appeler, mais pas le classeur: le nom de celui-ci est transmis a travers une variable.

J'utilise pour ce faire la methode Run:

Code :

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

1
2
3
4
Dim FileName As String
 
Set WorkBk = Workbooks.Open(FileName)
Application.Run (FileName & "'!returnImax'")

Cela ne marche pas et j'obtiens comme message d'erreur: "FileName.xls" introuvable (où FileName apparait bien comme etant le nom de mon fichier).

Auriez-vous des explications ? Je pense que cela est du aux guillemets qui, soit ne sont pas places au bon endroit, soit ne sont pas ceux qui conviennent.

Merci.

[pastis.vi]

Salut !

Quand tu ouvres le fichier, Excel se trouve sur CE fichier qui vient d'être ouvert.
Il te suffit donc de faire un :

Code :

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

fichier = Workbooks(ActiveWorkbook.name).name

Et hop tu chope le nom du fichier excel ouvert.
Ensuite, pour lancer la macro TOTO() qui se trouve dans ce fichier tu fais:

Code :

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

1
2
Windows(fichier).Activate
Call TOTO

Je pense que cette expression peut être simplifiée comme ça mais je suis pas certain:

Code :

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

Workbooks(fichier).Call TOTO

Pardon, je viens de voir, essaye comme ça :

Code :

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

Application.Run ("'" & FileName & "'!returnImax'")

[EngueEngue]

Sinon en 1724 avant Jésus Christ, Absalodom inventa une méthode révolutionnaire qui était le copier coller d'une macro dans le classeur, ceci lui permit d'éviter le temps de chargement du classeur et d'alourdir uniquement de quelques octets (le classeur de référence)

[Invité]

Code :

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

1
2
Set WorkBk = Workbooks.Open(FileName)
WorkBk.Run "returnImax"

[EngueEngue]

Comme d'habitude mercatog calme les débats... testé et approuvé. Cependant j'estime qu'Absalodom avait raison.

[wipMan]

Cependant j'estime qu'Absalodom avait raison.

C'est surment du au ton...

[mercatog]

Code :

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

Application.Run "'" & WorkBk.Name & "'!returnImax"

[wipMan]

Oui, je viens de trouver ca aussi. Merci a tous.