Extraction des extensions de fichiers en VBA
Résolu
Tessel75
-
Maurice -
Maurice -
Bonjour,
Existe-t-il une expression dans le VBA d'Excel qui permette d'extraire l'extension des Fichiers, sur le modèle de "name" ou "path"?
J'ai fait une petite fonction pour obtenir ce résultat, mais si l'expression existait je serais bien plus satisfait.
Merci de vos réponses
Existe-t-il une expression dans le VBA d'Excel qui permette d'extraire l'extension des Fichiers, sur le modèle de "name" ou "path"?
J'ai fait une petite fonction pour obtenir ce résultat, mais si l'expression existait je serais bien plus satisfait.
Merci de vos réponses
3 réponses
-
Bonjour,
à ma connaissance non.
Une façon de faire :ext=Mid(nomFich, InstrRev(nomFich, ".") + 1)
eric
-
Merci de ta réponse.
J'arrivais à la même expression, si ce n'est que je passais par Right() et que j'utilisais des paramètres intermédiaires; la tienne est plus resserrée.
Bonne nuit -
Bonjour
Voila pour le nom ou extention
Sub Test4()
NomFiche = "L001000_M_pb69.3656_100.5572_E12.txt"
Fiche = Mid(NomFiche, 1, InStrRev(NomFiche, ".") - 1)
ExtFiche = Mid(NomFiche, InStrRev(NomFiche, ".") + 1)
End Sub
A+
Maurice
