Discussion :

[EmmanuelleC]

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]

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]

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]

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

[jfontaine]

Excuse, je n'avais pas fais attention, mais

Code :

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

ThisWorkbook.Name

retourne bien l'extension si le fichier est enregistré

[EmmanuelleC]

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