Insertion champ nom de fichierSalut SiniK Bonsoir le fil
Voilà ce que Monique , notre experte en formules (bisous à elle) à proposé pour mettre le nom du classeur ou le nom d'une feuille dans une cellule (le 10/10/2006)
Bonjour,
Nom du classeur avec ou sans .xls =STXT(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1))+1;SOMME(TROUVE({"[";"]"};CELLULE("filename";A1))*{-1;1})-1) =STXT(CELLULE("filename";A2);TROUVE("[";CELLULE("filename";A2))+1;SOMME(TROUVE({"[";"]"};CELLULE("filename";A2))*{-1;1})-5)
Nom de la feuille =STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;32)
Edit
Il faut que le classeur soit enregistré
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
On Error Resume Next
ActiveSheet.Name = [A1]
End If
End Sub
Pour toutes les feuilles:
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then
On Error Resume Next
ActiveSheet.Name = [A1]
End If
End Sub