recuperer nom sans extension

obyone · 27 Juin 2017

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 · 27 Juin 2017

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

obyone · 27 Juin 2017

merci ce la fonctionne.

cordialement

Oby

Robert · 27 Juin 2017

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 :

VB:

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

recuperer nom sans extension

obyone

XLDnaute Occasionnel

bof

XLDnaute Occasionnel

obyone

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

Discussions similaires