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

A voir également:

2 réponses

Réponse 1 / 2
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
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

Afficher les 6 commentaires
Signaler
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.
Signaler

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

Ca marche du feu de dieu !!!! merci bcp !
Signaler

ça marche, j'ai juste changé.msg en .pdf
Signaler

Le code marche à merveille.
Merci !
Réponse 2 / 2

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
Signaler
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
Posez votre question