Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. =STXT(CELLULE("filename");TROUVE("[";CELLULE("filename"))+1;TROUVE("]";CELLULE("filename"))-TROUVE("[";CELLULE("filename"))-5) Cordialement. Daniel "géjoun" a écrit dans le message de news: 435d019b$0$26282$
Bonjour,
Je souhaite insérer dans une cellule le nom de mon fichier, donc j'ai fait une petite recherche et trouvé ça :
mais je souhaiterais que l'extension .xls n'apparaisse pas.
Est-ce que cette formule peut être modifiée pour arriver à ça?
Merci!
-- géjoun
/Enlever l`année pour m`écrire.../ Message monitoré par axinews : http://www.axinews.com/
Bonjour.
=STXT(CELLULE("filename");TROUVE("[";CELLULE("filename"))+1;TROUVE("]";CELLULE("filename"))-TROUVE("[";CELLULE("filename"))-5)
Cordialement.
Daniel
"géjoun" <dam-mail2005@ifrance.com.invalid> a écrit dans le message de news:
435d019b$0$26282$636a15ce@news.free.fr...
Bonjour,
Je souhaite insérer dans une cellule le nom de mon fichier, donc j'ai fait
une
petite recherche et trouvé ça :
Bonjour. =STXT(CELLULE("filename");TROUVE("[";CELLULE("filename"))+1;TROUVE("]";CELLULE("filename"))-TROUVE("[";CELLULE("filename"))-5) Cordialement. Daniel "géjoun" a écrit dans le message de news: 435d019b$0$26282$
Bonjour,
Je souhaite insérer dans une cellule le nom de mon fichier, donc j'ai fait une petite recherche et trouvé ça :
mais je souhaiterais que l'extension .xls n'apparaisse pas.
Est-ce que cette formule peut être modifiée pour arriver à ça?
Merci!
-- géjoun
/Enlever l`année pour m`écrire.../ Message monitoré par axinews : http://www.axinews.com/
michdenis
Bonjour Géjoun,
Copie cette fonction personnalisé dans un module standard : '--------------------------------- Public Function FileName() Application.Volatile a = ThisWorkbook.Name If UCase(Right(a, 3)) = "XLS" Then FileName = Left(a, Len(a) - 4) Else FileName = a End If End Function '---------------------------------
et dans une cellule de ta feuille : =FileName()
Salutations!
"géjoun" a écrit dans le message de news: 435d019b$0$26282$ Bonjour,
Je souhaite insérer dans une cellule le nom de mon fichier, donc j'ai fait une petite recherche et trouvé ça :
mais je souhaiterais que l'extension .xls n'apparaisse pas.
Est-ce que cette formule peut être modifiée pour arriver à ça?
Merci!
-- géjoun
/Enlever l`année pour m`écrire.../ Message monitoré par axinews : http://www.axinews.com/
Bonjour Géjoun,
Copie cette fonction personnalisé dans un module standard :
'---------------------------------
Public Function FileName()
Application.Volatile
a = ThisWorkbook.Name
If UCase(Right(a, 3)) = "XLS" Then
FileName = Left(a, Len(a) - 4)
Else
FileName = a
End If
End Function
'---------------------------------
et dans une cellule de ta feuille :
=FileName()
Salutations!
"géjoun" <dam-mail2005@ifrance.com.invalid> a écrit dans le message de news: 435d019b$0$26282$636a15ce@news.free.fr...
Bonjour,
Je souhaite insérer dans une cellule le nom de mon fichier, donc j'ai fait une
petite recherche et trouvé ça :
Copie cette fonction personnalisé dans un module standard : '--------------------------------- Public Function FileName() Application.Volatile a = ThisWorkbook.Name If UCase(Right(a, 3)) = "XLS" Then FileName = Left(a, Len(a) - 4) Else FileName = a End If End Function '---------------------------------
et dans une cellule de ta feuille : =FileName()
Salutations!
"géjoun" a écrit dans le message de news: 435d019b$0$26282$ Bonjour,
Je souhaite insérer dans une cellule le nom de mon fichier, donc j'ai fait une petite recherche et trouvé ça :
