=STXT(CELLULE("nomfichier";A1);CHERCHE("[";CELLULE("nomfichier";A1))+1;CHERCHE("]";CELLULE("nomfichier";A1))-CHERCHE("[";CELLULE("nomfichier";A1))-1)
Variable = ActiveWorkbook.Name
MyRange.Worksheet.Names.Add Name:=MyName, RefersToR1C1:=MyRange
MyRange.Workbook