Excel écriture nom fichiers

Question

Bonjour,  

j'ai un dossier dans lequel se trouve plusieurs fichiers (au format pdf, doc, zip, ...). 

j'aimerais créer une macro excel qui réecrit le nom de chaque fichier dans ma feuille excel. 

Cependant, j'ai quelques difficultés.
Pourriez vous m'aider pour cela, svp ? Merci. 



Configuration: Windows XP / Internet Explorer 6.0

printfx000 · Answer

Personne n'a d'idée ?

Svp, c'est important.

Utilisateur anonyme · Answer

Bonjour,

    Voici un exemple que j'ai tiré de la toile :


Sub ChercheFichier()

    Dim myStr As String, myN As String, i As Long
    
    Worksheets.Add
    
    With Application.FileSearch
        .LookIn = ("C:\Document\Excel")
        If .Execute() > 0 Then
            For i = 1 To .FoundFiles.Count
                
                myStr = .FoundFiles(i)
                Cells(i, 1) = .LookIn & "\"
                myN = Right(myStr, Len(myStr) - Len(Cells(i, 1)))
                Cells(i, 2) = Left(myN, Len(myN) - 4)
                Cells(i, 3) = Right(myStr, 3)
            Next i
        Else
            MsgBox "Aucun fichier"
        End If
    End With
    [a:c].EntireColumn.AutoFit

End Sub
'


Cdt

Lupin

Excel écriture nom fichiers

2 réponses

Discussions similaires

Newsletters