Comment utiliser Excel filedialog pour obtenir la liste des fichiers dans un répertoire

Création de la macro

1. Démarrez Microsoft Excel. Appuyez sur "CTRL + O", sélectionnez votre classeur, puis cliquez sur «Ouvrir». Pour créer un nouveau classeur à la place, appuyez sur "CTRL + N."

2. Appuyez sur "Alt + F8" pour ouvrir la boîte de dialogue Macros. Tapez "GetFolderContents" dans la zone Nom de la macro, puis cliquez sur "Créer".

3. Entrez le code suivant dans l'éditeur VBA.

   GetFolderContents sub ()

   Dim xDir, xFilename, f, fso As Object

   Set fso = CreateObject ("Scripting.FileSystemObject")

   Avec Application.FileDialog (msoFileDialogFolderPicker)

   .InitialFileName = ThisWorkbook.Path ""

   .Title = "Sélectionnez un dossier à la liste des fichiers à partir"

   .AllowMultiSelect = Faux

   .Montrer

   Si .SelectedItems.Count lt;> 0 Then

   
   
   
   
   

    xDir = .SelectedItems (1) ""
   Fin si

   End With

   Si (MsgBox (Prompt: = "? Voulez-vous d'inclure les noms de sous-dossiers", _

   Boutons: = vbYesNo, Titre: = "Inclure les sous-dossiers") = vbYes) Ensuite,

   ListFolders GoTo
   GoTo ListFiles
   Autre
   GoTo ListFiles
   Fin si

   ListFolders:

   Pour chaque f Dans fso.GetFolder (XDir) .SubFolders
   ActiveCell.Value = ".. " f.Name
   ActiveCell.Offset (1, 0) .Select
   
   
   Suivant f

   ListFiles:

   Pour chaque f Dans fso.GetFolder (xDir) .files
   ActiveCell.Value = f.Name
   ActiveCell.Offset (1, 0) .Select
   Suivant f

   Set fso = Nothing

   End Sub

4. Appuyez sur "Alt + Q" pour fermer l'éditeur VBA et revenir à votre classeur.

Utilisation de la macro

1. Mettez en surbrillance une cellule dans votre feuille. Appuyez sur "Alt + I" puis "C" pour créer une colonne vide. Sélectionnez la première cellule de la nouvelle colonne. Si vous souhaitez afficher la liste dans une nouvelle feuille de calcul à la place, appuyez sur "MAJ + F11."

2. Appuyez sur "Alt + F8" pour ouvrir la boîte de dialogue Macros. Sélectionnez "GetFolderContents" et cliquez ensuite sur "Exécuter".

3. Sélectionnez le dossier ou répertoire à partir duquel vous souhaitez afficher le contenu. Cliquez sur "OK".

4. Cliquez sur "Oui" si vous souhaitez la macro à la liste aussi les noms des sous-dossiers, ou cliquez sur "Non" à la liste des fichiers seulement. Attendez Excel pour terminer peupler la nouvelle colonne avec le contenu de votre dossier sélectionné.

Conseils Avertissements

• Par défaut, les macros sont désactivées dans Microsoft Excel. Pour les activer, cliquez sur le bouton Microsoft Office, puis allez dans "Options Excel." Assurez-vous que "onglet Développeur Show" est cochée. Allez à «Fiducie Center" puis cliquez sur "Paramètres du Centre." Allez dans "Paramètres des macros», puis choisissez «Activer toutes les macros." Cliquez sur "OK" sur les deux fenêtres, enregistrer les classeurs ouverts et puis redémarrez Excel.