Microsoft Excel n'est pas seulement sur des données tabulaires , les calculs et la gestion de l'information. Toute fervent utilisateur peut transformer Excel en un outil puissant pour la gestion des dossiers , l'organisation des fichiers et garder une trace des tâches. Vous pouvez créer une macro qui utilise un objet VBA FileDialog à analyser rapidement un répertoire et son contenu dans une feuille de calcul. Lors de l'exécution , cette macro inviter les utilisateurs à choisir un dossier, et il sera par la suite la liste des noms de ses contenus dans une seule colonne . Instructions
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

Presse "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 ()

xDir Dim, xFilename , f, fso As Object

Set fso = CreateObject (" Scripting.FileSystemObject " )

Application.FileDialog ( msoFileDialogFolderPicker )
< p > . InitialFileName = ThisWorkbook.Path & "\\"

. title = " Sélectionnez un dossier pour afficher les fichiers de«

. AllowMultiSelect = False

. Afficher

. SelectedItems.Count < > 0 Then

xDir = . SelectedItems (1) & "\\"

End If End With

( MsgBox ( Prompt: = " ? vous désirez inclure les noms des sous-dossiers ", _

Buttons : = vbYesNo , Titre : = "Inclure les sous-dossiers " ) = vbYes ) Puis
< p > ListFolders GoTo

GoTo listfiles

Else

GoTo listfiles

End If

ListFolders :

For Each f Dans fso.GetFolder ( xDir ) . SubFolders

ActiveCell.Value = " .. \\" & f.Name

ActiveCell.Offset (1, 0) . Select
< p > suivant f

listfiles :

Pour chaque f Dans fso.GetFolder ( xDir ) Fichiers

ActiveCell.Value = f.Name

de ACTIVECELL . . Offset (1, 0) . Sélectionnez

suivante f

Set fso = Nothing End Sub

4

Appuyez sur " ALT + Q" pour fermer l'éditeur VBA et revenir à votre classeur.
Utiliser le Mode Macro
5

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 dans la nouvelle colonne . Si vous souhaitez afficher la liste dans une nouvelle feuille de calcul à la place , appuyez sur " SHIFT + F11. "
6

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

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

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