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

Question

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

Configuration: Windows 7 / Firefox 31.0

eriiic · Answer

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

Tessel75 · Answer

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

Maurice · Answer

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

Extraction des extensions de fichiers en VBA

3 réponses

Discussions similaires