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