Extraction des extensions de fichiers en VBA [Résolu/Fermé]

- - Dernière réponse :  Maurice - 7 sept. 2014 à 14:27
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

Afficher la suite 

3 réponses

Messages postés
23107
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
5 décembre 2019
5783
0
Merci
Bonjour,

à ma connaissance non.
Une façon de faire :
ext=Mid(nomFich, InstrRev(nomFich, ".") + 1)


eric
0
Merci
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
0
Merci
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