Discussion :

[dlight]

Bonjour à tous.

Est-il possible de prendre tous les noms de fichiers dans un répertoire et de les copier dans un fichier excel (par exemple un répertoire de musique).

Je cherche dans un premier temps d'avoir que le nom du fichier musique.

Est-il possible qu'en important le nom du fichier musique qu'un lien hypertexte soit créé dans excel de sort que appuyant sur le lien le fichier mp3 soit joué par le lecteur de l'ordinateur.

Merci à l'avance

[Peut-êtreUneRéponse]

Par macro tu peux utiliser le code VBA ci-après (Code de Frédéric Sigonneau (MVP) adapté pour ton besoin) en l'ajoutant dans un nouveau module :

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub TousFichiersDunDossier()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    NomDossier = ChoisirDossier
    If NomDossier = "" Then Exit Sub
    Set Dossier = fso.getfolder(NomDossier)
 
    Set Files = Dossier.Files
    If Files.Count <> 0 Then
        Sheets.Add
        For Each File In Files
            i = i + 1
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=File.Path
        Next
    End If
End Sub
 
Function ChoisirDossier()
Dim objShell, objFolder, chemin, SecuriteSlash
 
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = _
        objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)
    On Error Resume Next
    chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
    If objFolder.Title = "Bureau" Then
        chemin = "C:\Windows\Bureau"
    End If
    If objFolder.Title = "" Then
        chemin = ""
    End If
 
    SecuriteSlash = InStr(objFolder.Title, ":")
 
    If SecuriteSlash > 0 Then
        chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
    End If
    ChoisirDossier = chemin
End Function

Oui OK c'est du fso...

.

[BenjGe]

quel est le problème de fso? ça m'intéresse car je l'utilise beaucoup

[dlight]

WOW !

C'est exactement ce que j'avais besoin.

J'aimerais bien par contre comprendre ce que veur dire FSo et son fonctionnement afin d'appliquer cette nouvelle notion pour moi dans l'avenir.

Merci encore une fois