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

Signaler
-
 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

3 réponses

Messages postés
23450
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
1 septembre 2020
6 322
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