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

postes plus tôt içi : http://forum.hardware.fr/hardwaref [...] ujet-1.htm c'est eux les pros du vb.

Bonjour,
 
on peut essayer cette fonction qui malheureusement ne fonctionne pas si il existe plusieurs "." dans le nom de dossier.
 
Sub tester()
    Dim NomFichierSansExtension As String
    NomFichierSansExtension = InfosNomFichier("c:\excel\essai.txt", 4)
End Sub
 
Public Function InfosNomFichier(fichier, Contexte)
    While InStr(pos + 1, fichier, "\" ) <> 0
        pos = InStr(pos + 1, fichier, "\" )
    Wend
    Select Case Contexte
        Case 3
            InfosNomFichier = Mid(fichier, pos + 1)     'nom du fichier sans chemin  
       Case 4
            NomFichier = Mid(fichier, pos + 1)      'nom du fichier sans extension
            InfosNomFichier = Left(NomFichier, InStr(NomFichier, "." ) - 1)
        Case 5
            InfosNomFichier = Left(fichier, pos)    'chemin
        Case Else
    End Select
End Function
 
Cordialement
Epena