XL 2010 Récupérer le nom d'un répertoire au milieu des autres

jmh1 · 22 Janvier 2018

Bonjour à tous,

J'ai un fichier qui est enregistré sous différents répertoires et j'aimerai récupérer le nom d'un de ces sous-répertoire.

Exemple de chemin :
U:\QA PIECES\02 - AI UP2\06 - FI contrôle réception\01 - Application Saisie Datas, dans ce cas je voudrai récupérer le nom du sous-répertoire : 02 - AI UP2.

Autre exemple :
U:\QA PIECES\01 - Chimique\06 - FI contrôle réception\01 - Application Saisie Datas, dans ce cas je voudrai récupérer le nom du sous-répertoire : 01 - Chimique.

Quelqu'un aurait-il une solution ?

Merci d'avance

Bebere · 22 Janvier 2018

bonjour
jmh 2 exemples avec stxt,cherche,nbcar,droite

Staple1600 · 22 Janvier 2018

Bonsoir le fil, le forum

Après la solution par formules
(et au cas où VBA is needed)

VB:

Sub Ex_Split()
strPath = "U:\QA PIECES\01 - Chimique\06 - FI contrôle réception\01 - Application"
tDoss = Split(strPath, "\")
For i = LBound(tDoss) To UBound(tDoss)
temp = temp & Chr(10) & tDoss(i)
Next
MsgBox Mid(temp, 2)
'ici on extrait le 2ième dossier, mais le 3ième élément de tableau tDoss
MsgBox tDoss(2)
End Sub

jmh1 · 22 Janvier 2018

Bonsoir
Merci pour vos réponses.
Je n'avais pas précisé mais c'est la solution de stable 1600 que je vais retenir car en VBA

Staple1600 · 22 Janvier 2018

Re

@1hmj
Mois c'est Staple1600
Pas stable 1600

NB: Bien qu'après quelques bières, il se peut que je ne sois plus du tout stable

XL 2010 Récupérer le nom d'un répertoire au milieu des autres

jmh1

XLDnaute Occasionnel

Bebere

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

jmh1

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Discussions similaires