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

A voir également:

3 réponses

Messages postés
24161
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
13 août 2021
6 873
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