Chopper un nom de dossier

[PsykotropyK]

Bon voila, j'ai fait ca pour l'instant

Sub Recherche_Mp3()
On Error Resume Next
Dim Rep As String
Dim i As Long
Dim t As Long
Dim compte As Long
compte = Application.WorksheetFunction.CountA(Sheets('Transfert').Range('A:A'))
For t = 1 To compte
For z = 1 To 2
Sheets('Transfert').Cells(t, z).Value = ''
Next z
Next t
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Title = 'Choisissez votre répertoire à Scanner'
.Show
Rep = .SelectedItems(1)
End With
Dir
Set fs = Application.FileSearch
With fs
.LookIn = Rep
.SearchSubFolders = True
.Filename = '*.exe'
If .Execute(SortBy:=msoSortByPathName, SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox 'There were ' & .FoundFiles.Count & ' file(s) found.'
For i = 1 To .FoundFiles.Count
Sheets('Transfert').Cells(i, 1).Value = .FoundFiles(i)
Sheets('Transfert').Cells(i, 2).Value = Dir(.FoundFiles(i), vbDirectory)
Next i
Else
MsgBox 'Pas de fichiers trouvés.'
End If
End With
Sheets('Transfert').Cells(3, 3).Value = CELLULE('nomfichier', A1)

End Sub

En gros pour ceux qui veulent savoir a quoi ca sert, il se passe ca :

- J'ouvre une boite de dialogue invitant a sélectionner un dossier
- Ensuite je scan ce dossier à la recherche de tout les '.exe'
- J'écris en colonne 1 le chemin d'acces complet de chaque fichier
- En colonne 2 le nom du fichier

le but est de mettre en colonne 3 le nom du dossier qui contient le fichier, mais juste le nom, pas le chemin complet... et en colonne 4 le nom du dossier qui contient ce dossier (mais ça c'est moins nécessaire donc vous emm.... pas dessus)

Donc j'ai testé pas mal de truc, j'ai cherché sur le forum (j'y ai trouvé la commande =CELLULE....... mais ca me va pas donc si quelqu'un a une idée... merci.

 

[laM]

Re

y m'a bouffé mes barres obliques inverses

a = Split(.FoundFiles(i), 'mettre une barre oblique inverse')

La fonction split découpe une chaîne selon un séparateur 'barre oblique inverse' et place les éléments dans un tableau.
Son contraire est la fonction join.

Allez @+

 

[PsykotropyK]

Bon je test ca et a priori ca devrait etre exactement ce que je cherche...

Merci a tous...

A la prochaine...