Nom de fichier en vba
Résolu
wire less
Messages postés
247
Statut
Membre
-
wire less Messages postés 247 Statut Membre -
wire less Messages postés 247 Statut Membre -
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 :)
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 :)
A voir également:
- Nom de fichier en vba
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
2 réponses
Bonjour,
Voilà 3 fonctions issues de la FAQ VB6 du site https://vb.developpez.com/
L'auteur est ThierryAIM
;o)
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)
