Bonjour,  
 
Je developpe actuellement un petit soft en VBA sous Excel, j'importe des fichiers en utilisant la fonction GetOpenFileName qui renvoi le chemin complet avec le nom de mon fichier dans une variable déclarée en Variant.  
Ca c'est bon, j'obtiens donc ma valeur sous le style c:\excel\essai.txt.  
 
Mon problème est que j'ai besoin de récupérer dans cette valeur juste le nom de mon fichier sans l'extention juste " essai ".  
 
Comment je peux faire?  
 
Merci pour vos réponses.  
Olivier

Dim xString as String
 
xString = Mid ( MonTexte, Len(MonTexte) - InStr ( StrReverse ( MonTexte), "\" )) ' là xstring = "essai.txt"
 
xString = left( MonTexte, InStr (xString, "." ) -1) ' là xString = "essai"

 
Bonjour,
 
Merci pour cette super info, juste une petite chose, ta première instruction me renvoi "txt" et non "essai.txt

 
Merci beaucoup, ça marche

Salut,
 
Autre formulation possible avec InstrRev (non disponible avec Office 97) :
 
xString = Right(MonTexte, Len(MonTexte) - InStrRev(MonTexte, "\" ))
xString = Left(xString, InStrRev(xString, "." ) - 1)
 
A+
Horatio

Hé Hé,  
   
MonTexte = "C:\Documents\Divers\Test.d'un.fichier.avec.des.points.xls"
xString = Right(MonTexte, Len(MonTexte) - InStrRev(MonTexte, "\" ))  
xString = Left(xString, InStrRev(xString, "." ) - 1)  
   
A+
Horatio
 

xString = Left(xString, InStrRev(xString, "." ) - 1)  >>> "ess" et non "essai"  
 
Donc c'est bien :
 
xString = Left(xString, InStr(xString, "." ) - 1) >>> "essai" (jusqu'à la lettre avant le point)

Bizarre, bizarre,
 
xString = Left(xString, InStrRev(xString, "." ) - 1)
me donne bien essai pas ess    
 
à suivre...