|
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 )
. 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
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
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é .
|
