recuperer nom sans extension

[obyone]

bonjour,

je recupere le nom d'un fichier PDF dans une textbox,

j'aimerai copier le nom du fichier sans son extension dans une case.

j'ai fais ceci

sheets("feuil1").range("e17")=mid(CB_Cert, InStr(CB_Cert,"."))

le hic c'est que cela me renvoi uniquement .PDF donc exactement l'inverse de ce que je veux.

merci d'avance

cordialement

Oby

 

[bof]

bonjour,
utilise :
sheets("feuil1").range("E17")=, = Split(CB_Cert,".")(0)
A+

 

[obyone]

merci ce la fonctionne.

cordialement

Oby

 

[Robert]

Bonjour le fil, bonjour le forum,

Si le nom de ton fichier comporte d'autres points que celui de l'extension (j'en conviens c'est rare ! Mais ça peut arriver...), essaie comme ça :

Sheets("Feuil1").Range("e17")=Replace(CB_Cert, ".pdf", "")