XL 2010 Extraire un texte entre 2 premiers "-" d'un nom de fichier

[deps]

Bonjour

quand j'ouvre un fichier de type "AS-xxxxxx-17-12-2016-23-23-05.csv" où X représente une lettre mais le nombre de lettres peut être variable
ex :
AS-Basket_Ball-17-12-2016-09-17-19.csv
As-Football-17-12-2016-09-17-19.csv

je souhaiterais que la macro me mette en cellule A1 : uniquement le mot BAsket_BAll ou Football ect.
quelqu'un aurait-il une idée ?
merci

Deps

 

[JHA]

Bonjour à tous,

En attendant une solution par macro, ci joint une solution par formule.

JHA

 

[deps]

Bonjour

j'ai trouvé un début de macro mais elle bug au niveau de "range("A1")
Quelqu'un aurait il une idée ?
merci
Deps


Sub nomfichier()
Dim nomfichier, nomfichier2 As String

nomfichier = ThisWorkbook.Name
nomfichier2 = "=LEFT(RIGHT(nomfichier,LEN(nomfichier-FIND(""-"",nomfichier,1)),FIND(""-"",RIGHT(nomfichier,LEN(nomfichier)-FIND(""-"",nomfichier,1)))-1)"
Range("A1") = nomfichier2

End Sub

 

[deps]

Bonjour JHA

je ne vois pas ta solution

merci encore de ton aide
Deps

 

[deps]

Salut JHA

oups j'ai trouvé ta solution

=STXT(A1;CHERCHE("-";A1)+1;CHERCHE("-";SUBSTITUE(A1;"-";"";1))-CHERCHE("-";A1))


merci

Deps

 

[mapomme]

Bonsoir à tous,

Un essai en VBA.

Sub SportEnA1()
   ActiveSheet.Range("A1") = Split(ThisWorkbook.Name, "-")(1)
End Sub

 

[deps]

Bonjour mapomme

merci pour ta solution

j'ai crée un nouveau sujet, car le problème vient non pas du fichier actif mais d'un fichier non actif
en fait depuis mon fichier actif , j'ouvre un 2e fichier (csv)
et c'est le nom de ce 2e fichier que je recherche à coller dans le 1er fichier.

Si tu as une idée, je suis évidemment preneur.
tu peux répondre dans le 2e sujet.

merci
Deps