Extraire le nom du fichier à partir d'une URL \\PC\DOSSIER\fichier.jpg

D

david84

XLDnaute Barbatruc

• 25 Novembre 2014

• #2

Re : Extraire le nom du fichier à partir d'une URL \\PC\DOSSIER\fichier.jpg

Bonjour,
une possibilité en utilisant la fonction InStrRev :

Code:

Sub test()
Dim s As String
s = "\\PC2\DOSSIER-X\fichier45.jpg"
MsgBox Mid(s, InStrRev(s, "\") + 1, Len(s))
End Sub

A+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 25 Novembre 2014

• #3

Re : Extraire le nom du fichier à partir d'une URL \\PC\DOSSIER\fichier.jpg

Bonjour Yann

en supposant que: \\PC2\DOSSIER-X\fichier45.jpg soit en A1,

=STXT(SUBSTITUE(SUBSTITUE(A1;"\\";"");"\";"";1);CHERCHE("\";SUBSTITUE(SUBSTITUE(A1;"\\";"");"\";"";1))+1;99)

à+
Philippe

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 25 Novembre 2014

• #4

Re : Extraire le nom du fichier à partir d'une URL \\PC\DOSSIER\fichier.jpg

Bonjour à tous

Une macro pour extraire le nom de fichier et une formule pour extraire le nom de dossier que j'utilise:

Pour le nom de fichier

Code:

Sub Extrait_Dossier_Nom_Fichier()
For Each cell In Selection
cell.Offset(0, 2) = Split(cell, "\")(UBound(Split(cell, "\")))
Next
End Sub

Puis Formule pour le nom de dossier:

Code:

=STXT(A1;1;(NBCAR(A1)-NBCAR(C1)))

 

Dernière édition: 25 Novembre 2014

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 25 Novembre 2014

• #5

Re : Extraire le nom du fichier à partir d'une URL \\PC\DOSSIER\fichier.jpg

Re et bonjour à Philippe et Michel
par formule :

Code:

=STXT(A1;CHERCHE("fichier";A1);99)

A+

 

Vote positif 0 Vote négatif