Macro extraction de 2 chaines de caractere

[jojo2006]

Bonjour à tous,
voila je cherche une macro qui me permettrait d'extraire 2 chaines de caractère à partir d'une chaine de caractere

Contexte:

Mes données de départ sont des hyperliens

H:\Z\tata\tooto11.xls
H:\ZZZZZ\titii\totoo2.xls
H:\ZZZ\tataaaaa\tootoo3.xls
H:\ZZZZZZZZZ\tututututuut\totoooo44.xls


Je dois extraire le chemin du répertoire qui contient le fichier, soit:


H:\Z\tata\
H:\ZZZZZ\titii\
H:\ZZZ\tataaaaa\
H:\ZZZZZZZZZ\tututututuut\


Et le nom du fichier ( l'extension est toujours ".xls")


tooto11.xls
totoo2.xls
tootoo3.xls
totoooo44.xls


Je pense qu'il faut utiliser le fonctions instr right left, mais je suis perdu car les longueures des chaines varient et il peut y avoir plusieurs anti slach "\" dans le chemin d'acces du fichier. Le séparateur ".xls" peut être utilisé pour l'extraction ( ce sont tous des fichier .xls )

Merci à vous pour votre aide

 

[mromain]

Re : Macro extraction de 2 chaines de caractere

bonjour voici deux fonctions qui doivent répondre à ton PB :

Public Function GetParentFolderPath(filePath As String) As String
Dim tmpStr() As String
    tmpStr = Split(filePath, "\")
    ReDim Preserve tmpStr(LBound(tmpStr) To UBound(tmpStr) - 1)
    GetParentFolderPath = Join(tmpStr, "\") & "\"
End Function

Public Function GetFileName(filePath As String) As String
Dim tmpStr() As String
    tmpStr = Split(filePath, "\")
    GetFileName = tmpStr(UBound(tmpStr))
End Function

a+

 

[Pierrot93]

Re : Macro extraction de 2 chaines de caractere

Bonjour jojo, romain

une autre solution :

MsgBox "chemin : " & Mid(Range("A1").Value, 1, InStrRev(Range("A1"), "\"))
MsgBox "fichier : " & Mid(Range("A1").Value, InStrRev(Range("A1"), "\") + 1)

bonne journée
@+

 

[jojo2006]

Re : Macro extraction de 2 chaines de caractere

En 3 mots:

tout simplement génial !!

rapide, efficace, merci à vous


jojo