Importer des noms de fichiers dans excel
Résolu/Fermé
A voir également:
- Extraire nom de fichier vers excel
- Copier nom fichier dans excel - Meilleures réponses
- Excel extraire nom de fichier d'un chemin - Meilleures réponses
- Extraire les noms de fichier vers Excel? ✓ - Forum - Windows
- Importer des noms de fichiers dans excel ✓ - Forum - Excel
- Copier liste de nom de fichier - Forum - Windows
- Récupérer ds Excel liste de noms de fichiers ✓ - Forum - Excel
- Insertion nom de fichier dans cellule excel - Forum - Excel
2 réponses
rv83toulon
8 mars 2011 à 08:09
- Messages postés
- 68
- Date d'inscription
- mercredi 2 mars 2011
- Statut
- Membre
- Dernière intervention
- 25 avril 2013
8 mars 2011 à 08:09
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.
Tiens nous au courant, A+
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+
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
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
rv83toulon
11 mars 2011 à 08:55
- Messages postés
- 68
- Date d'inscription
- mercredi 2 mars 2011
- Statut
- Membre
- Dernière intervention
- 25 avril 2013
11 mars 2011 à 08:55
En effet c'est un oubli, merci
10 mars 2011 à 20:21
merci beaucoup pour ta réponse ! par contre je n'arrive pas à faire fonctionner le code j'ai ouvert VBA et je l'ai copié d'abord dans un nouveau module en changeant le mot mon dossier par le chemin d'accès, j'ai essayé de le mettre aussi dans thisworkbook et sur la feuille 1 mais quand j'essaie de les executer rien ne se passe, y avait il autre chose que j'aurais du modifier ?
11 mars 2011 à 08:55
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.
11 mars 2011 à 12:42
merci à toi en tout cas !
26 avril 2012 à 10:55
31 mai 2017 à 11:23