Extraction des extensions de fichiers en VBA

Résolu
Tessel75 -  
 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

Réponse 1 / 3
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour,

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


eric
1
Réponse 2 / 3
Tessel75
 
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
Réponse 3 / 3
Maurice
 
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
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses