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"

[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.

[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...

[wipMan]

yo

Je rouvre ce topic pour essayer de comprendre comment marche le formalisme d'enchassement de textes au sein d'une formule, si je peux l'appeler comme cela.
J'ai affaire a un probleme de meme nature que ce que j'ai pu poser au debut de ce topic mais en plus complexe: je cherche a creer un lien hypertexte qui prenne son adresse par reference a une cellule situee dans un autre onglet. Pour expliciter, je veux que figure dans le champ Address ci-dessous a la place de "http://www.developpez.net/" le contenu de la case C3 de ma feuille "Accueil" concatene a un "\" et au contenu de la case D6 de ma feuille courante.

Code :

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

1
2
3
4
5
6
7
With Worksheets("TIC")
     .Hyperlinks.Add
          Anchor:=.Range(Split(Columns(j).Address(ColumnAbsolute:=False), ":")(1) & i), _
          Address:="http://www.developpez.net/", _
          ScreenTip:="www.developpez.net", _
          TextToDisplay:="Cliquer ici"
End With

J'avais dans un premier temps utiliser Excel pour realiser cette operation comme le montre la ligne ci-dessous, mais je souhaite a present utiliser du code vba.

Code :

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

=LIEN_HYPERTEXTE(CONCATENER(Accueil!$C$3; "\"; D6; "\"; D6; "_monNomDeFichier.pdf"); "cliquer ici")

Quelqu'un pourrait-il m'expliquer comment cela marche ?

[EngueEngue]

le contenu de la case C3 de ma feuille "Accueil" concatene a un "\" et au contenu de la case D6 de ma feuille courante.

Code :

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

1
2
3
4
5
6
 
with activeworksheet
     .Hyperlinks.Add
          Address:=.range("C3") & "\" & .range("D6"), _
          TextToDisplay:="Cliquer ici"
End With

[wipMan]

yo

Merci pour la reponse, je ne pensais pas qu'il s'agissait d'une concatenation.

En revanche, je ne comprends pas le role des " ' " (simple quote) et a quel moment ils interviennent dans le cas d'un enchassement comme j'en parlais dans mon precedent message.
Je suis par ailleurs confronte a un probleme de ce type avec:

Code :

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

ComboBoxAMoua.RowSource = "'Base'!e8:e9"

, qui fonctione et ou je cherche a remplacer "Base" par "Worksheets("Base")". Vous comprenez le rapport avec mon probleme.

Dois-je ouvrir un nouveau topic pour traiter ce probleme ?

Merci.

[mercatog]

les simples quotes sont absolument nécessaires quand il y a un espace dans le nom de la feuille (ou classeur dans d'autres cas)

Sinon tu peux utiliser

Code :

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

1
2
3
4
5
Dim Ws As Worksheet
 
Set Ws = Worksheets("Base")
ComboBoxAMoua.RowSource = "'" & Ws.Name & "'!E8:E9"
Set Ws = Nothing

Mais je ne vois pas l'intérêt.