Nom de fichier en vba Résolu

Question

Bonjour,
J'utilise le vba d'excel.
J'ai réussi à récupérer un nom de fichier qui a la gueule suivante :
Nom_Fichier = C:/mesdocuments/travail/FileName.abc

Je voudrais pouvoir stoquer distinctement le nom de fichier, l'adresse du fichier et l'extension du fichier:
Genre :
Nom_Fichier = "FileName"
Adresse_Fichier = "C:/mesdocuments/travail/"
Extension = ".abc"
?
Est ce que quelqu'un sait comment faire?
Merci :)

Polux31 · Accepted Answer

Bonjour,

Voilà 3 fonctions issues de la FAQ VB6 du site https://vb.developpez.com/

' Comment récupérer le répertoire d'un fichier à partir de son chemin complet ?
Public Function ExtractFilePath(ByVal sFullPath As String) As String

If Right(sFullPath, 1) = "\" Then
    ExtractFilePath = sFullPath
Else
    ExtractFilePath = Left(sFullPath, InStrRev(sFullPath, "\"))
End If

End Function

'Comment récupérer le nom d'un fichier à partir d'un chemin complet ? 
Public Function ExtractFileName(ByVal sFullPath As String) As String
    If InStr(sFullPath, "\") = 0 Or Right(sFullPath, 1) = "\" Then
        ExtractFileName = ""
        Exit Function
    End If
    ExtractFileName = Mid(sFullPath, InStrRev(sFullPath, "\") + 1)
End Function

'Comment récupérer l'extension d'un fichier à partir d'un chemin complet ? 
Public Function ExtractFileExt(ByVal sFullPath As String) As String
    Dim sName As String
    sName = ExtractFileName(sFullPath)
    If InStr(sName, ".") = 0 Then
        ExtractFileExt = ""
    Else
        ExtractFileExt = Mid(sName, InStrRev(sName, ".") + 1)
    End If
End Function

L'auteur est ThierryAIM

;o)

wire less · Answer

Parfais
Merci Polux31

Nom de fichier en vba

2 réponses

Votre réponse

Discussions similaires