Mettre des fonctions excel dans une variable

**EmmanuelleC** · 24/08/2009, 13h25

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 :

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

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?

**diude54** · 24/08/2009, 14h53

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

Code :

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

parametreclasseur= worksheetfunction.mid(...)

ça ne marche pas?

**jfontaine** · 24/08/2009, 15h12

Bonjour

Pour avoir le nom du classeur

Code :

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

ThisWorkbook.Name

pour le fichier, on ajoute l'extension

Code :

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

ThisWorkbook.Name & ".xls"

**EmmanuelleC** · 24/08/2009, 15h12

non

si je fais ca

Code :

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

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