Extraction des extensions de fichiers en VBA

Résolu/Fermé

Tessel75 - 7 sept. 2014 à 01:19
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

A voir également:

Vba extension fichier
Fichier rar - Guide
Fichier host - Guide
Changer extension fichier - Guide
Fichier iso - Guide
Extension dat - Guide

3 réponses

Réponse 1 / 3

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
7 sept. 2014 à 01:31

Bonjour,

à ma connaissance non.
Une façon de faire :

ext=Mid(nomFich, InstrRev(nomFich, ".") + 1)

eric

Réponse 2 / 3

Tessel75
7 sept. 2014 à 01:48

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

Réponse 3 / 3

Maurice
7 sept. 2014 à 14:27

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

Discussions similaires

Problème d'extension d'application sur ps4

comment donner les droits sur fichier partage

Discussions similaires

Newsletters