Discussion :

[BLZ007]

bonjour
je suis débutant j 'ai une chaîne de type a="d:\a\bb\ccc" et je souhaiterai récupérer dans un script VBA les derniers caractères après le dernier "\" c'est à dire "ccc" en sachant que cette chaîne peut varier en longueur et avoir plusieurs "\".
J'ai utilisé la fonction instr mais elle me donne la première position à partir de la gauche de la chaîne.
Y a t-il un solution pour résoudre cette situation sans développer une usine à gaz ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub essai()
 
Dim chaine As String
Dim message As long
chaine = "d:\a\bb\ccc"
message = InStr(1, chaine, "\")
MsgBox (message)
 
End Sub

Merci pour votre aide

[NVCfrm]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub essai()
 
Dim chaine As String
Dim message As long, cible
chaine = "d:\a\bb\ccc"
cible=Split(chaine,"\")
message = cible(Ubound(cible)
MsgBox (message)
 
End Sub

[eriiic]

Bonjour,

autre possibilité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub essai()
    Dim chaine As String
    Dim message As String
    chaine = "d:\a\bb\ccc"
    message = Mid(chaine, InStrRev(chaine, "\") + 1)
    MsgBox (message)
End Sub

eric

[BLZ007]

merci à tous pour cette résolution rapide

[Marc-L]

Contribution Extraire l'extension d'un fichier …

[NVCfrm]

Contribution Extraire l'extension d'un fichier …

Salut!
j'ai cru comprendre qu'il s'agissait un nom de sous dossier dans une imbrication pouvant être variable.

La solution InstrRev est immédiatement la première approche qui vient aux habitués des fonctions chaînes.
Dans le contexte actuel, un risque de résultats inattendus avec plusieurs "\" .
InstrRev renvoi l'opposé de la position d'une chaîne par rapport à la fin.
Je me suis parfois posé la question sur l'utilité de cette fonction équivalent à Len(str) - Instr(1, str, cstr) si ce n'est le raccourcissement de code.

Sinon, Sur le lien, la fonction Instr appliqué à StrReverse sur la chaîne permet de déduire la position et le nombre de caractères à fournir à la fonction Mid. Une alternative à Split.
Cela dit, les questionneurs sont généralement plus fainéants à chercher par eux même, (malgré le nombre de cas innombrables s'appliquant à leurs besoins) que les contributeurs.