Importer des noms de fichiers dans excel [Résolu/Fermé]

Signaler
-
 NHT -
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

2 réponses

Messages postés
68
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
25 avril 2013
15
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+
5
Merci

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez Comment Ça Marche

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
68
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
25 avril 2013
15
Bonjour,
tu met ce code dans un module puis tu appuies x fois sur F8 pour éxécuter le code pas à pas.
Si il y a une erreur indique nous a quel ligne.
Sinon, vérifie ton chemin!
Il faut qu'il y ai un "\" à la fin du chemin.
Ayé j'ai réussi à le faire fonctionner !! merci beaucoup cela va représenter un gain de temps énorme ! (en fait je n'avais pas mis de slash à la fin du chemin)
merci à toi en tout cas !
Ca marche du feu de dieu !!!! merci bcp !
ça marche, j'ai juste changé.msg en .pdf
Le code marche à merveille.
Merci !
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
Messages postés
68
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
25 avril 2013
15
En effet c'est un oubli, merci