Récupérer une partie d'une adresse (VBA)

Bonjour tout le monde.

Je dois récupérer la fin d'un chaine de caractère, mais je ne sais plus comment faire.

La chaine de caractère est une adresse du type :
C:/blabla/blabla/.../blablablo/BLIBLI.txt

Je souhaiterais ne récupérer que le "BLIBLI.txt", donc la droite du dernier "/"

Sachant que BLIBLI.txt est d'une longueur variable (BLIBLIBLI.txt, BLI.txt...)

J'ai beau essayer avec Left, Right et LEN sans succés je ne retrouve plus la bonne organisation pour que ca marche.

Merci de votre aide

Fred

Bonjour
Ce que je fais n'est peut être pas très académique mais ça marche

Code:

---

1 2 3 4 5 6

Dim Resultat as string Do while right(chaine,1)<>"/" Resultat =right(chaine,1)+Resultat chaine=left(chaine, len(chaine)-1) loop

---

Slts

Vu ton explication je ne vois qu'une solution.

Code:

---

1 2 3 4 5 6 7

dim a$, i as integer, B$ a$="C:/blabla/blabla/.../blablablo/BLIBLI.txt"   for i=len(a$) to 1 step -1 if mid(a$,i,1)="\" then exit for next i B$ = mid(a$,i + 1)

---

A+

Ok superbe

Je vous remerci tt les deux.

J'ai finalement utilisé la seconde version.

Juste une question complémentaire :
Pquoi :

Code:

---

dim a$, i as integer, B$

---

et pas :

Code:

---

dim a$, i, B$ as integer

---

Merci bcp

fred

bonjour

S'il s'agit de l'adresse d'un fichier existant sur ton PC tu peux aussi écrire directement

Code:

---

MsgBox Dir("C:\dossier\...\nom fichier.txt")

---

michel

Tu peux aussi utiliser split qui permet le découpage d'une chaine de caractères contenant un séparateur

Code:

---

1 2 3 4 5

Dim str() As String   str = Split("C:/blabla/blabla/.../blablablo/BLIBLI.txt", "/") MsgBox str(UBound(str))

---

Citation:

---

Envoyé par jackfred

Ok superbe

Je vous remerci tt les deux.

J'ai finalement utilisé la seconde version.

Juste une question complémentaire :
Pquoi :

Code:

---

dim a$, i as integer, B$

---

et pas :

Code:

---

dim a$, i, B$ as integer

---

Merci bcp

fred

---

Dim a$ est une variable String ($)
et chaques variables doit être attribuée séparément..
dim i,f,b AS Integrer donne..
i = variant : f = variant : et b = integer
il faut mettre : dim i AS Integrer , f AS Integrer , f AS Integrer
A+