Splitter un chemin contenue dans une variable

Bonjour voila je vous explique mon problème , je récupère les donné d'une cellule dans une variable et les données que je récupère dans ma colonne A sont des chemin et j'aimerais avoir une fonction comme par exemple un Split ou autre chose pour séparer ce chemin a chaque "\"
Je vous transmet aussi mon fichier excel pour que vous voyez la colonne A

Merci =)

Code:

---

repertoire = Cells(i, 1) 'Je récupère la valeur de A comme ceci

---

Bonjour,

Voici une fonction codée à la va vite :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Option Explicit Function Scinder(Chaine As String, Separateur As String) As String() Dim i As Integer Dim Word_size As Integer Dim Chaine_len As Integer Dim Temp() As String Chaine_len = Len(Chaine) ReDim Temp(0)   Word_size = 1 For i = 1 To Chaine_len If Mid(Chaine, i, 1) = Separateur Then Temp(UBound(Temp)) = Mid(Chaine, i - Word_size + 1, Word_size - 1) ReDim Preserve Temp(UBound(Temp) + 1) Word_size = 1 ElseIf i = Chaine_len Then Temp(UBound(Temp)) = Mid(Chaine, i - Word_size + 1, Word_size) Else Word_size = Word_size + 1 End If Next i Scinder = Temp End Function

---

En appelant la fonction avec la chaine (la cellule à "split") et le séparateur ("\") alors tu récupères un tableau de type "string" avec tous les éléments séparés par le "\".

NB : Sinon, sans VBA, tu as Données>Convertir>Délimité>Autre (Mettre \ ) qui te permet de séparer ta colonne en plusieurs en utilisant le " \ " comme séparateur.

Cordialement,

Un Poulpe

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim R As Range Dim i As Long Dim repertoire   Set R = Sheets("Feuille1").Range("A3").CurrentRegion For i = 2 To R.Rows.Count repertoire = Split(Trim("" & R(i, 1)), "\") Next End Sub

---

Merci pour ta réponse Robert mais comment puis-je vérifier si ma chaîne de caractère contenue dans ma variable à bien était séparer car un MsgBox me de déclare une incompatibilité de type ... :s

Merci d'avance =)

c'est un tableau!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test() Dim R As Range Dim i As Long Dim repertoire   Set R = Sheets("Feuille1").Range("A3").CurrentRegion For i = 2 To R.Rows.Count repertoire = Split(Trim("" & R(i, 1)), "\") 'tableau de répertoires For i2 = 0 To UBound(repertoire) 'Scan le tableau MsgBox repertoire(i2) Next Next   End Sub

---

Merci de ton complément de réponse, maintenant j'aimerais savoir si il est possible de séparer de la même façon ma chaine mais ce que je voudrai c'est delete cette partie "14.5.1 - 20140404" enfin les chiffre d'avant je voudrai qu'une fois que cette partie de la macro exécuter quand je lance une MsgBox ce la m'affiche seulement par exemple : "ASYNC" ensuite "CodaEU_To_Xerox_Finance_Referential_Data" etc...

Merci encore pour ta réponse Robert =)

Le code

Citation:

---

For i2 = 0 To UBound(repertoire) 'Scan le tableau
MsgBox repertoire(i2)
Next
Next

---

te permet de boucler sur les éléments du tableau.

Si tu souhaites ignorer le début, remplace le i2 = 0 par i2 = 1

Poulpe

Merci le poulpe mon problème est totalement résolue =)

Citation:

---

Envoyé par Mr Poulpe

Le code

te permet de boucler sur les éléments du tableau.

Si tu souhaites ignorer le début, remplace le i2 = 0 par i2 = 1

Poulpe

---

exactement tu récupère les informations que tu as besoin en les ignorant dans la boucle. tu peux également si c'est toujours la première valeur que tu supprime fair une boucle en partant de la fin!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub test() Dim R As Range Dim i As Long Dim repertoire d = DateAdd("YYYY", -1, Date) Set R = Sheets("Feuille1").Range("A3").CurrentRegion For i = 2 To R.Rows.Count repertoire = Split(Trim("" & R(i, 1)), "\") 'tableau de répertoires Rep = "" For i2 = UBound(repertoire) To 1 Step -1 'Scan le tableau de la fin vers le début sans prendre le répertoir 0 du tableau If Rep = "" Then Rep = repertoire(i2) Else Rep = repertoire(i2) & "\" & Rep Next MsgBox Rep i = 13 Next   End Sub

---