Excel : créer des dossiers sous Windows à partir d’une liste de fichiers


Dans le cadre de la préparation de mon examen, le diplôme d’expertise comptable, je suis comme nombre de candidats en train d’actualiser et de compléter ma documentation. J’ai donc récupéré un certain nombre de publications sous format PDF pour lesquelles je vais utiliser des extraits nécessaires à ma documentation. Ainsi, j’ai récupéré tous les magazines de l’Ordre des Experts-Comptables intitulés SIC, SIC pour Science, Indépendance, Conscience.
Forcément, j’essaye de gagner du temps. J’ai commencé naturellement à créer un par un les dossiers devant contenir la copie du magazine en format PDF qui fera l’objet de séparer une par une les pages grâce à PaperPort de Nuance, logiciel fourni avec mon imprimante BROTHER MFC-9340CDW. Mais, j’ai trouvé le travail fastidieux car j’ai récupéré depuis août 2007 soit plus de 100 exemplaires. Une solution, abandonner ce travail et, je me consacre à autre chose pour la préparation du diplôme.
Simplement, le soir en me couchant, je me suis dit que ce serait bête d’avoir fait toute cette récupération sans aller jusqu’au bout. Et puis, j’ai réfléchi. Est-il possible de récupérer une liste de fichiers dans un dossier sous quelques formats que ce soit ? Si oui, est-il alors possible de créer des dossiers et de copier les fichiers ?
Déjà, première réflexion, je ne sais pas récupérer une liste de fichiers dans un dossier ou je ne m’en souviens plus. Après quelques recherches sur ma tablette au fond de mon lit à une heure indue, je vois parmi les liens fournis par Google, un élément qui réveille en moi de vieux souvenirs. Les moins de vingt ans ne peuvent pas connaître, comme disait la chanson, mais c’est bien sûr, les bonnes vieilles commandes MS-DOS. Comme quoi ce qu’on a appris, peut servir toujours un jour ou l’autre. Celle qui faut se souvenir est la commande : DIR
Pour pouvoir utiliser cette commande, il convient d’ouvrir la fenêtre MS-DOS à l’aide du programme « Cmd » comme indiquer dans la figure ci-dessous :

Une fois que vous avez appuyer sur la touche « Entrée », vous arrivez sur l’écran suivant :

dir/w

La commande « dir / w » vous permet de voir l’ensemble de fichiers et dossiers comme la figure ci-dessous le démontre :

Avec la commande «cd lecteur\dossier», vous naviguez jusqu’à l’endroit où se situe votre dossier souhaité pour obtenir la liste des fichiers.

Si vous êtes au bon endroit, il suffit de saisir la commande suivante :

dir>liste.txt

Vous devriez avoir un résultat similaire à la figure ci-dessous :

Je précise que j’ai déprotégé les magazines SIC en format PDF qu’à des fins personnels. Aussi, je m’abstiens et m’abstiendrai à diffuser ce travail personnel que doivent faire tous les candidats au DEC pour alimenter leurs documentations. Je n’indiquerai pas non plus comment j’ai fait pour déprotéger un fichier PDF. Ceci étant dit, poursuivons l’article en passant à l’étape suivante après avoir bien vérifier que le fichier « liste.txt » figure bien dans le dossier. Le contenu doit ressembler à cela :

 Le volume dans le lecteur G s'appelle My Passport
 Le num‚ro de s‚rie du volume est F084-728C

 R‚pertoire de G:\Mes documents\STAGE ECS\CSOEC\SIC\SIC d‚prot‚g‚s

06/03/2017  17:24    <REP>          .
06/03/2017  17:24    <REP>          ..
12/03/2017  10:06        14ÿ083ÿ557 201310_SIC_322_d.pdf
12/03/2017  11:34        14ÿ237ÿ239 201403_SIC_327_d.pdf
14/03/2017  16:57                 0 liste.txt
12/03/2017  10:38        13ÿ150ÿ459 201312_SIC_324_d.pdf
12/03/2017  10:52        14ÿ176ÿ611 201401_SIC_325_d.pdf
12/03/2017  16:26         4ÿ244ÿ806 201501_SIC_336_d.pdf
12/03/2017  11:37        13ÿ602ÿ338 201402_SIC_326_d.pdf
12/03/2017  12:10        15ÿ528ÿ938 201404_SIC_328_d.pdf
12/03/2017  13:07        13ÿ949ÿ654 201405_SIC_329_d.pdf
12/03/2017  14:15        16ÿ026ÿ953 201406_SIC_330_d.pdf
12/03/2017  14:38         5ÿ938ÿ342 201409_SIC_332_d.pdf
12/03/2017  14:48        18ÿ360ÿ939 201408_SIC_331_d.pdf
12/03/2017  15:11        17ÿ015ÿ429 201410_SIC_333_d.pdf
12/03/2017  15:36        14ÿ668ÿ269 201411_SIC_334_d.pdf
12/03/2017  15:44         6ÿ317ÿ782 201412_SIC_335_d.pdf
12/03/2017  16:33         4ÿ802ÿ888 201502_SIC_337_d.pdf
12/03/2017  21:29         5ÿ685ÿ293 201510_SIC_344_d.pdf
12/03/2017  16:43         4ÿ460ÿ372 201503_SIC_338_d.pdf
12/03/2017  16:55         6ÿ817ÿ770 201504_SIC_339_d.pdf
12/03/2017  17:35         5ÿ377ÿ806 201505_SIC_340_d.pdf
12/03/2017  17:48         6ÿ337ÿ419 201506_SIC_341_d.pdf
12/03/2017  18:01         7ÿ614ÿ553 201508_SIC_342_d.pdf
12/03/2017  18:14         7ÿ733ÿ092 201509_SIC_343_d.pdf
12/03/2017  19:13        10ÿ814ÿ836 201509_SIC_hors_serie_d.pdf
13/03/2017  06:24         5ÿ233ÿ407 201606_SIC_352_d.pdf
12/03/2017  21:29         7ÿ122ÿ962 201511_SIC_345_d.pdf
12/03/2017  21:44         7ÿ108ÿ201 201512_SIC_346_d.pdf
12/03/2017  21:51         5ÿ319ÿ730 201601_SIC_347_d.pdf
12/03/2017  22:51         5ÿ382ÿ793 201602_SIC_348_d.pdf
12/03/2017  23:10         5ÿ566ÿ502 201604_SIC_350_d.pdf
12/03/2017  23:13        13ÿ856ÿ104 201603_SIC_349_d.pdf
12/03/2017  23:19         5ÿ254ÿ947 201605_SIC_351_d.pdf
13/03/2017  06:30        15ÿ485ÿ649 201608_SIC_353_d.pdf
13/03/2017  07:03        17ÿ754ÿ583 201610_SIC_355_d.pdf
13/03/2017  07:14         8ÿ304ÿ424 201609_SIC_354_d.pdf
13/03/2017  07:30         7ÿ829ÿ666 201611_SIC_356_d.pdf
13/03/2017  07:51         7ÿ583ÿ640 201612_SIC_357_d.pdf
13/03/2017  08:21         7ÿ246ÿ826 201701_SIC_358_d.pdf
13/03/2017  08:30         8ÿ278ÿ780 201702_SIC_359_d.pdf
06/03/2017  17:39         5ÿ073ÿ231 201009_SIC_288_d.pdf
07/03/2017  18:34         4ÿ227ÿ026 200708_sic_255_d.pdf
07/03/2017  18:42         4ÿ107ÿ332 200709_sic_256_d.pdf
07/03/2017  21:37         3ÿ956ÿ054 200710_SIC_257_d.pdf
07/03/2017  21:44         4ÿ430ÿ147 200711_sic_258_d.pdf
07/03/2017  22:51         4ÿ234ÿ493 200801_SIC_260_d.pdf
07/03/2017  22:57         3ÿ970ÿ196 200803_SIC_261_d.pdf
08/03/2017  12:17         2ÿ263ÿ003 200804_SIC_262_d.pdf
08/03/2017  12:26         2ÿ877ÿ848 200805_SIC_263_d.pdf
08/03/2017  13:46         1ÿ200ÿ857 200806_SIC_264_d.pdf
08/03/2017  14:46         1ÿ760ÿ843 200808_SIC_265_d.pdf
08/03/2017  14:51         2ÿ324ÿ382 200809_SIC_266_d.pdf
08/03/2017  17:41         1ÿ895ÿ019 200810_SIC_267_d.pdf
08/03/2017  17:49         3ÿ656ÿ379 200811_SIC_268_d.pdf
08/03/2017  22:59         2ÿ052ÿ329 200812_SIC_269_d.pdf
08/03/2017  23:05         4ÿ450ÿ135 200901_SIC_270_d.pdf
09/03/2017  09:34         4ÿ597ÿ840 200902_SIC_271_d.pdf
09/03/2017  09:38         2ÿ261ÿ705 200903_SIC_272_d.pdf
09/03/2017  10:55         3ÿ341ÿ615 200904_SIC_273_d.pdf
09/03/2017  11:05         3ÿ309ÿ580 200905_SIC_274_d.pdf
09/03/2017  14:55         3ÿ031ÿ715 200906_SIC_275_d.pdf
09/03/2017  15:06         3ÿ913ÿ989 200908_SIC_276_d.pdf
09/03/2017  16:19         3ÿ700ÿ324 200909_SIC_277_d.pdf
09/03/2017  16:25         3ÿ234ÿ873 200910_SIC_278_d.pdf
09/03/2017  17:35         3ÿ829ÿ218 200911_SIC_279_d.pdf
09/03/2017  18:07         5ÿ542ÿ099 200912_SIC_280_d.pdf
09/03/2017  19:40         4ÿ572ÿ509 201001_SIC_281_d.pdf
09/03/2017  20:18         4ÿ786ÿ492 201002_SIC_282_d.pdf
09/03/2017  20:55         4ÿ418ÿ360 201003_SIC_283_d.pdf
09/03/2017  21:36         4ÿ693ÿ670 201005_SIC_285_d.pdf
09/03/2017  23:03         5ÿ848ÿ202 201006_SIC_286_d.pdf
09/03/2017  23:23         4ÿ691ÿ026 201008_SIC_287_d.pdf
10/03/2017  00:39         4ÿ970ÿ878 201010_SIC_289_d.pdf
10/03/2017  00:47         5ÿ566ÿ260 201011_SIC_290_d.pdf
10/03/2017  06:16         5ÿ955ÿ716 201012_SIC_291_d.pdf
10/03/2017  06:21         4ÿ169ÿ875 201012_SIC_horsserie65congres_d.pdf
10/03/2017  08:05         6ÿ247ÿ583 201101_SIC_292_d.pdf
10/03/2017  08:20         7ÿ251ÿ827 201102_SIC_293_d.pdf
10/03/2017  11:25         6ÿ854ÿ600 201103_SIC_294_d.pdf
10/03/2017  11:46         7ÿ232ÿ962 201104_SIC_295_d.pdf
10/03/2017  12:59         7ÿ167ÿ313 201105_SIC_296_d.pdf
10/03/2017  13:11         7ÿ311ÿ471 201106_SIC_297_d.pdf
10/03/2017  15:13         7ÿ598ÿ649 201108_SIC_298_d.pdf
10/03/2017  15:32         8ÿ976ÿ746 201109_SIC_299_d.pdf
10/03/2017  18:53        22ÿ758ÿ954 201110_SIC_300_d.pdf
10/03/2017  19:57         8ÿ500ÿ352 201111_SIC_301_d.pdf
10/03/2017  20:38        13ÿ970ÿ120 201112_SIC_302_d.pdf
10/03/2017  21:27        22ÿ790ÿ193 201201_SIC_303_d.pdf
10/03/2017  22:21         8ÿ676ÿ977 201202_SIC_304_d.pdf
10/03/2017  22:43        10ÿ004ÿ738 201203_SIC_305_d.pdf
11/03/2017  09:35        16ÿ757ÿ616 201204_SIC_306_d.pdf
11/03/2017  10:11        30ÿ197ÿ196 201205_SIC_307_d.pdf
11/03/2017  12:02        10ÿ152ÿ961 201206_SIC_308_d.pdf
11/03/2017  12:18        10ÿ843ÿ658 201208_SIC_309_d.pdf
11/03/2017  13:50        11ÿ492ÿ020 201209_SIC_310_d.pdf
11/03/2017  14:04         9ÿ609ÿ391 201210_SIC_311_d.pdf
11/03/2017  17:16        12ÿ025ÿ944 201211_SIC_312_d.pdf
11/03/2017  17:29        10ÿ495ÿ871 201212_SIC_313_d.pdf
11/03/2017  18:48        11ÿ072ÿ948 201301_SIC_314_d.pdf
11/03/2017  19:15        14ÿ128ÿ118 201302_SIC_315_d.pdf
11/03/2017  20:19        14ÿ819ÿ716 201303_SIC_316_d.pdf
11/03/2017  23:06        16ÿ304ÿ937 201304_SIC_317_d.pdf
11/03/2017  23:07        14ÿ416ÿ370 201305_SIC_318_d.pdf
11/03/2017  23:45        16ÿ140ÿ619 201306_SIC_319_d.pdf
12/03/2017  09:14        16ÿ637ÿ141 201309_SIC_321_d.pdf
12/03/2017  09:33        12ÿ958ÿ194 201308_SIC_320_d.pdf
12/03/2017  10:06        15ÿ737ÿ054 201311_SIC_323_d.pdf
             106 fichier(s)      896ÿ321ÿ018 octets
               2 R‚p(s)  20ÿ598ÿ194ÿ176 octets libres

Maintenant que vous avez vérifié la teneur de votre fichier, fermez-le. Il suffit alors d’ouvrir Excel et de savoir importer un fichier texte. Cela veut dire que vous devez savoir à partir de quelle ligne commencer l’import, savoir comment ne pas distribuer une colonne. Je ne vais pas au-delà car ce n’est pas le coeur de mon article mais je vous mets toutefois une copie écran d’une étape de l’import. Pour celles ou ceux qui souhaiteraient en savoir plus le sujet, je vous invite à consulter l’excellent article de mon ami Benoît RIVIERE intitulé Importer un fichier texte dans EXCEL

Ensuite, il convient de modifier le nom du fichier en un nom de dossier à partir de la colonne importée. L’intérêt n’est pas tellement dans ces formules Excel assez connues pour les férues d’Excel. L’intérêt est dans la macro élaborée pour créer sous Windows un dossier et copier le fichier dans ce nouveau dossier. Sans plus attendre, je vous mets ci-dessous la macro élaboration en VBA sous Excel que vous pouvez copier.

' avant de créer les dossiers, il convient de les copier.
' Pour cela, il convient d'ouvrir la commande DOS et de se positionner sur le dossier à l'aide de la commande cd lecteur\:dossier
' Une fois positionner sur le bon dossier, il convient de saisir l'expression suivante : dir>liste.txt

Sub creationdossier()

' Macro élaborée par Claude RAMEIX dans le but de créer des dossiers sous Windows et copier des fichiers dans le dossier créé à l'occasion à partir de la liste des fichiers
    Ligne = Range("B4").Row ' numéro de la première ligne des dossiers à créer
    ' Test de l'absence du chemin des fichiers à défaire la pile
    If Range("B1").Value = "" Then
        Message1 = MsgBox("Merci de saisir le chemin des fichiers à défaire la pile", vbOKOnly)
        Exit Sub ' sortie de la macro
    End If
     Cheminfichieracopier = Range("B1").Value 'nom du fichier à copier dans le dossier à créer
    ' Test de l'absence du chemin des dossiers à créer
    If Range("B2").Value = "" Then
        Message2 = MsgBox("Merci de saisir le chemin des dossiers à créer", vbOKOnly)
        Exit Sub ' sortie de la macro
    End If
     Chemindossier = Range("B2").Value ' nom du dossier où les dossiers seront créés
     ' création boucle : tant que la cellule n'est pas vide, exécutez la création du dossier et la copie du fichier
     While Cells(Ligne, 2).Value <> ""
        dossieracreer = Chemindossier & "\" & Cells(Ligne, 2).Value
        MkDir (dossieracreer) ' création du dossier
        fichieracopier = Cheminfichieracopier & "\" & Cells(Ligne, 1).Value
        fichieracoller = dossieracreer & "\" & Cells(Ligne, 1).Value
        FileCopy fichieracopier, fichieracoller ' copie du fichier à coller dans le nouveau dossier créé
        Ligne = Ligne + 1 'compteur ligne
     Wend
        
End Sub

Sub importfichiertexte()

' Macro élaborée par Claude RAMEIX dans le but d'ouvrir la boîte de dialogue d'import des fichiers texte.

    Range("A1").Select
    Application.Dialogs(xlDialogImportTextFile).Show
End Sub

La macro « creationdossier() » est à adapter en fonction de vos besoins. J’ai essayé de vous indiquer , dans la macro elle-même, le plus possible, les explications des lignes de commande. Si par hasard, vous ne vous sentez pas suffisamment à l’aide avec la programmation VBA, je vous ai mets, pour vous en inspirer, un lien vers mon fichier Excel m’ayant permis la création à la chaîne de dossiers et la copie de fichier dans ces dossiers. Merci de cliquer ici


Pour lire cet article, flashez ce QR Code avec votre smartphone ou votre tablette
Publicités

A propos rameixclaude

Je suis expert-comptable stagiaire. J’ai plus de douze ans d’expérience en tant que comptable d'entreprise. Mon projet est de devenir expert-comptable et commissaire aux comptes.
Cet article, publié dans DEC, documentation, Excel, Ordinateurs et Internet, est tagué , , , , , . Ajoutez ce permalien à vos favoris.

Laisser un commentaire

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s