Macro excel récup nom fichier d'un dossier

Fermé

elhorga47 Messages postés 19 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 9 avril 2020 - 14 janv. 2010 à 21:47
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 - 14 janv. 2010 à 22:29

Bonjour,

J'essaie de créer une macro qui récupère le nom de tous les fichiers excel présents dans un dossier. Je souhaite les récupérer dans des cellules d'une feuille excel.
Je n'arrive pas à définir le chemin d'accés du dossier. Pouvez-vous m'aider SVP

Voila ce que j'ai fait :

Sub Récup_nom_fichier()

Dim Dossier As Object
Dim Fichier As Object
Dim Ligne As Long

Dossier = ("C:\Dossier TDB")
Ligne = Sheets("Feuil1").Cells(1, 1)
Ligne1 = Ligne + 1

Fichier = ("C:\Dossier TDB\*.xls")

For Each Fichier In Dossier.Files
Sheets("Feuil1").Cells(Ligne1, 1) = Fichier.Name

Next Fichier

End Sub

A voir également:

Vba récupérer nom fichier d'un dossier
Fichier rar - Guide
Comment récupérer un compte facebook piraté - Guide
Fichier host - Guide
Comment recuperer un message supprimé sur whatsapp - Guide
Fichier iso - Guide

1 réponse

Réponse 1 / 1

Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
14 janv. 2010 à 22:29

Bonsoir,
Tu peux utiliser par exemple :

Sub lister()
Dim i
Dim nom As String

i = 0
nom = Dir("C:\Dossier TDB\*.xls")

While nom <> ""
Range("A1").Offset(i, 0).Value = nom
nom = Dir
i = i + 1
Wend

End Sub

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site

Annuaire portable gratuit à partir d'un nom

comment donner les droits sur fichier partage

Extraire le contenu de plusieurs fichiers

Discussions similaires

Newsletters