Import file names in Excel

Ask a question

Issue

I have a folder with a series of Outlook files (with the .msg extension), and I want to import all file names in an Excel file (2007). Is there any macro for this purpose?

Solution

Adapt this code accordingly:
Sub repertorier_fichier()
Dim Chemin As String, Fichier As String

'indique le répertoire contenant les fichiers
Chemin = "C:\MONDOSSIER\"

'Boucle sur tous les fichiers msg du répertoire.
Fichier = Dir(Chemin & "*.msg")

numligne = 1

Do While Len(Fichier) > 0
Sheets("Feuil1").Range("A" & numligne).Value = Fichier
numligne = numligne + 1
Fichier = Dir()
Loop
End Sub

Thanks to rv83toulon for this tip.