Extraire à partir de la droite

Bonjour à tous,

Je travail actuellement sur un grand nombre d'image et j'aimerai extraire une partie en partant de la droite.

Ma chaine possède un nombre différent de "-", tandis que de la droite j'ai des separateurs fixes (Point tiret tiret) "-123456789-Type.jpg".

Exemple:

Londres\Museum2017\Summer\Ceci-est-un-tableau-de-la-reine-20062017-Statue.jpg

-> 20062017-Statue.jpg

Merci par avance pour votre aide.

Bonjour,

Testes si ça convient :

Sub Test()

    Dim Chaine As String

    Chaine = "Londres\Museum2017\Summer\Ceci-est-un-tableau-de-la-reine-20062017-Statue.jpg"

    MsgBox Right(Chaine, Len(Chaine) - InStrRev(Chaine, "-", InStrRev(Chaine, "-") - 1))

End Sub

Bonjour,

avec une fonction personnalisée

Function ReferenceImage(cel As Range) As String
Dim tablo
tablo = Split(cel.Value, "-")
ReferenceImage = "-" & tablo(UBound(tablo) - 1) & "-" & tablo(UBound(tablo))
End Function

Impeccable, les deux fonctionne, un grand merci !

J'etais parti sur plusieurs colonne pour tout casser un par un ...