importer des noms de fichiers dans excel Résolu/Fermé

Question

Bonjour, 

J'ai un dossier avec une série de fichiers outlook (avec l'extension .msg), et je voudrai pouvoir importer tous les noms de fichier dans un fichier excel (2007), j'ai d'abord essayé d'utiliser les options données externes dans l'onglet données, mais je n'ai pas trouvé d'option qui permette d'importer un nom de fichier. J'ai essayé de trouver une macro déjà toute faite, j'en ai trouvé une qui permet d'avoir une liste de dossiers, j'ai essayé de la modifier pour faire apparaître ce que je souhaitais, mais étant donné que je n'y connais rien ça n'a rien donné 

quelqu'un aurait-il une solution à me proposer ?

un grand merci d'avance

Configuration: Windows 7 / Internet Explorer 7.0

rv83toulon · Accepted Answer

Bonjour,
voici un code qui te permet de mettre dans la feuil1 à partir de A1 la liste des noms de fichiers ".msg" d'un répertoire.
Il faut adapter ce code à ton cas. Il est testé et il fonctionne.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
Tiens nous au courant, A+

Info · Answer

Bonjour, 

J'ai testé le code proposé par rv83toulon dans un module et 
il fonctionne très bien. 

Seul hic remarqué, numLigne n'est pas déclaré ! 

Dim numLigne As Long

Cdt 

Info

Importer des noms de fichiers dans excel

2 réponses

Discussions similaires