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