Note: The other languages of the website are Google-translated. Back to English

Comment importer plusieurs noms de fichiers dans des cellules dans Excel?

Supposons que vous ayez un dossier avec des centaines de fichiers et que vous souhaitiez maintenant importer ces noms de fichiers dans des cellules d'une feuille de calcul. Copier et coller un par un prendra beaucoup de temps.Dans cet article, je parlerai de quelques astuces rapides pour vous aider à importer plusieurs noms de fichiers d'un dossier dans une feuille de calcul.

Importez plusieurs noms de fichiers dans des cellules de feuille de calcul avec le code VBA

Importez plusieurs noms de fichiers dans des cellules de feuille de calcul avec Kutools for Excel


Importez plusieurs noms de fichiers dans des cellules de feuille de calcul avec le code VBA

Le code VBA suivant peut vous aider à importer les noms de fichier, les extensions de fichier et le nom de dossier dans les cellules de la feuille de calcul, veuillez suivre les étapes suivantes:

1. Lancez une nouvelle feuille de calcul dont vous souhaitez importer les noms de fichiers.

2. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

3Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: importez plusieurs noms de fichiers dans les cellules de la feuille de calcul

Sub GetFileList()
'updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim i As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    ActiveSheet.Cells(1, 1) = "Folder name"
    ActiveSheet.Cells(1, 2) = "File name"
    ActiveSheet.Cells(1, 3) = "File extension"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xPath
        ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
        ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
    Next
End Sub

4. Puis appuyez F5 clé pour exécuter ce code, et dans la fenêtre contextuelle Parcourir, choisissez le dossier dans lequel vous souhaitez importer le formulaire des noms de fichiers, voir capture d'écran:

doc importer les noms de fichiers 1

5. Et puis cliquez OK bouton, et vous obtiendrez le résultat suivant:

doc importer les noms de fichiers 2

Notes: S'il y a des sous-dossiers dans votre dossier spécifique, les noms de fichiers dans les sous-dossiers ne seront pas importés.


Importez plusieurs noms de fichiers dans des cellules de feuille de calcul avec Kutools for Excel

Si vous devez importer les noms de fichiers à la fois dans le dossier et les sous-dossiers, ne vous inquiétez pas, avec Kutools pour Excel's Liste des noms de fichiers utilitaire, vous pouvez facilement importer tous les noms de fichiers dans le dossier spécifique, y compris les sous-dossiers.

Kutools pour Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. 

Après l'installation de Kutools pour Excel, procédez comme suit:

1Cliquez sur Kutools Plus> Import & Export > Liste des noms de fichiers, voir capture d'écran:

2. Dans le Liste des noms de fichiers boîte de dialogue, effectuez les opérations suivantes:

(1.) Cliquez sur doc importer les noms de fichiers 5 bouton pour sélectionner le dossier contenant les fichiers que vous souhaitez importer;

(2.) Vérifier Inclure les fichiers dans les sous-répertoires pour importer les noms de fichiers des sous-dossiers;

(3.) Spécifiez le type de fichiers que vous souhaitez importer sous le Type de fichiers section;

(4.) Sélectionnez une unité de taille de fichier que vous souhaitez afficher Unité de taille de fichier section;

(5.) Si vous souhaitez créer un lien hypertexte entre les noms de fichiers et les dossiers, veuillez cocher Créer des hyperliens option.

doc importer les noms de fichiers 4

3. Après avoir terminé les réglages, veuillez cliquer sur OK bouton, et les noms de fichiers dans le dossier et les sous-dossiers sont importés dans une nouvelle feuille de calcul comme illustré ci-dessous:

doc importer les noms de fichiers 6

Conseils: Si vous souhaitez simplement importer un nom de fichier de type spécifié à partir d'un dossier spécifique, vous pouvez vérifier Spécifier option dans la Liste des noms de fichiers et tapez l'extension de fichier dedans, alors il importera uniquement les noms de fichier de type spécifié à partir du dossier et des sous-dossiers.

Cliquez pour en savoir plus sur cette fonctionnalité de liste de noms de fichiers…

Téléchargez et essayez gratuitement Kutools for Excel Now!


Démo: importez plusieurs noms de fichiers dans des cellules de feuille de calcul avec Kutools for Excel

Kutools pour Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!

Articles Liés:

Comment répertorier tous les fichiers du dossier et des sous-dossiers dans une feuille de calcul?

Comment répertorier tous les noms de fichiers dans un dossier et créer des liens hypertexte pour eux dans Excel?


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (14)
Noté 5 hors 5 · évaluations 1
Ce commentaire a été minimisé par le modérateur sur le site
Hey,
J'ai une feuille ecxel qui contient des noms de produits, ainsi qu'un dossier contenant des fichiers pdf nommés de la même manière que dans les données de cellule, par exemple si la valeur de la cellule A2 est apple1, le nom du fichier Pdf est apple1.pdf, je veux savoir quel nom le fichier est manquant, pouvons-nous l'obtenir dans Excel d'une manière ou d'une autre.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Myk,
Tout d'abord, vous pouvez appliquer le code ci-dessus pour insérer les noms de fichiers dans la feuille de calcul, lister les deux colonnes de noms de fichiers dans une feuille de calcul, puis vous pouvez utiliser la fonction Sélectionner des cellules identiques et différentes de Kutools pour identifier et mettre en surbrillance les noms de fichiers manquants, voir capture d'écran :

S'il vous plaît essayez-le, merci!
Ce commentaire a été minimisé par le modérateur sur le site
Très utile, merci !
Ce commentaire a été minimisé par le modérateur sur le site
Apakah bisa merename file dengan excel?
terimakasih sangat membantu perkerjaan saya,
Ce commentaire a été minimisé par le modérateur sur le site
saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi open terus sampai ke file tertentu dan ketika di klik malah run time 26 path not found bisa bantu kenapa itu bisa terjadi?
Ce commentaire a été minimisé par le modérateur sur le site
Merci. C'était génial
Ce commentaire a été minimisé par le modérateur sur le site
Pour le code VBA, comment tireriez-vous également la date de modification ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Ajoutez la colonne de date de modification pour les noms de fichiers importés, veuillez appliquer le code VBA suivant, veuillez l'essayer, j'espère qu'il pourra vous aider !

Sous GetFileList()
Dim xFSO en tant qu'objet
Estomper xFolder en tant qu'objet
Dim xFile en tant qu'objet
Dim xFiDialog en tant que FileDialog
Estomper xPath en tant que chaîne
Dim i comme entier
Définir xFiDialog = Application. FileDialog (msoFileDialogFolderPicker)
Si xFiDialog.Show = -1 Alors
xPath = xFiDialog.SelectedItems(1)
Si fin
Définir xFiDialog = Rien
Si xPath = "" alors quitter le sous-marin
Set xFSO = CreateObject("Scripting.FileSystemObject")
Définir xFolder = xFSO.GetFolder(xPath)
ActiveSheet.Cells(1, 1) = "Nom du dossier"
ActiveSheet.Cells(1, 2) = "Nom du fichier"
ActiveSheet.Cells(1, 3) = "Extension de fichier"
ActiveSheet.Cells(1, 4) = "Date de la dernière modification"
i = 1
Pour chaque xFile dans xFolder.Files
i = i + 1
ActiveSheet.Cells(i, 1) = xPath
ActiveSheet.Cells(i, 2) = Gauche(xFile.Name, InStrRev(xFile.Name, ".") - 1)
ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
ActiveSheet.Cells(i, 4) = CDate(xFile.datelastmodified)
Suivant
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
existe-t-il un moyen de mettre le chemin du dossier déjà dans le code?
Ce commentaire a été minimisé par le modérateur sur le site
Je veux mentionner uniquement le nom du dossier. Quel est le code vba pour cela.
Ce commentaire a été minimisé par le modérateur sur le site
Je veux ajouter une table, uniquement le nom du dossier et les données modifiées également ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Voulez-vous répertorier tous les noms de dossier d'un dossier principal spécifique ? Merci de détailler votre problème.
Ce commentaire a été minimisé par le modérateur sur le site
Une autre méthode facile est là. Copiez simplement le chemin du répertoire où vous avez enregistré les documents et collez ce lien dans le navigateur (chrome/mozilla). Vous obtiendrez la liste des noms et vous n'aurez qu'à copier coller dans Excel. Acclamations!
Ce commentaire a été minimisé par le modérateur sur le site
très utile. Tnx beaucoup
Noté 5 hors 5
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL