Discussion :

[patricktoulon]

bonjour a tous
j'ai vu il y a un momment sur le forum qu'il y avait
le moyen de couper un url de fichier en fonction des "\" contenu dans celle ci

exemple l'url est : c:\classeurnon abouti\model mutltimedia\wmpplayer en construction\player metal.xls

moi ce que je voudrais c'est dans une listbox a plusieur collonnes y metre chaquemorceau precedent l'anti slash

en bref dans chaque colonne metre le morceau de l'url

merci pour votre aide

[jfontaine]

Bonjour,

le code joint fait en partie ce que tu souhaites.
Reste a adapter la restitution vers la listbox

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim str() As String
Dim i As Integer
 
 
str = Split(ThisWorkbook.Path & "\" & ThisWorkbook.Name, "\")
For i = 0 To UBound(str)
    Cells(1, i + 1).Value = str(i)
Next i

[patricktoulon]

bonjour
jfontaine ca fonctione impec et en plus trop facile a adapter a ma lisbox
tiptop
merci a toi