Mettre des fonctions excel dans une variable

C'est surement un probleme archi basique mais je n'arrive pas a trouver la bonne formulation

je voudrais mettre dans une variable le nom du fichier de facon dynamique

Pour le moment, j'ai le code suivant

Code:

---

1 2 3

Range("E2") = "=Mid(CELL(""FILENAME"", A1), Search(""["", CELL(""FILENAME"", A1)) + 1, Search(""]"", CELL(""FILENAME"", A1)) - Search(""["", CELL(""FILENAME"", A1)) - 1)" parametreclasseur = Range("E2") Range("E2").Clear

---

Ca fonctionne mais c'est pas propre et c'est ridicule.
Je peux surement mettre directement la formule das la variable non?

Je suis pas sur que ce soit ce que tu veuilles mais si tu fais:

Code:

---

parametreclasseur= worksheetfunction.mid(...)

---

ça ne marche pas?

Bonjour

Pour avoir le nom du classeur

Code:

---

ThisWorkbook.Name

---

pour le fichier, on ajoute l'extension

Code:

---

ThisWorkbook.Name & ".xls"

---

non :(
si je fais ca

Code:

---

parametreclasseur = WorksheetFunction.Mid(CELL("FILENAME", A1), Search("[", CELL("FILENAME", A1)) + 1, Search("]", CELL("FILENAME", A1)) - Search("[", CELL("FILENAME", A1)) - 1)

---

il boude sur le premier CELL, avec comme message d'erreur "Sub or Function not defined"

[edit]jfontaine, intéressant ca, mais par contre, je n'ai pas l'assurance que l'extension soit .xls

je met le nom de classeur en variable pour s'assurer que si les utilisateurs le sauvergarde ailleurs, ma macro continue a marcher.
Mais je n'ai pas de moyen de les forcer a utiliser un format particulier, non?
D'autant que les offices 2007 cotoient pour le moment les office 2003 :?

Excuse, je n'avais pas fais attention, mais

Code:

---

ThisWorkbook.Name

---

retourne bien l'extension si le fichier est enregistré

super, merci beaucoup :)
C'est quand meme largement plus correct comme ca qu'avec ma solution bancale :)