{"id":10246,"date":"2022-06-19T22:02:08","date_gmt":"2022-06-19T20:02:08","guid":{"rendered":"https:\/\/www.auditsi.eu\/?p=10246"},"modified":"2022-06-19T23:16:57","modified_gmt":"2022-06-19T21:16:57","slug":"vba-decompresser-en-masse-les-fichiers-zip-dun-dossier","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=10246","title":{"rendered":"VBA : D\u00e9compresser en masse des fichiers Zip"},"content":{"rendered":"

Un fichier ZIP<\/strong> est un fichier qui contient un ou plusieurs fichiers compress\u00e9s ; la compression de fichiers permettant de r\u00e9duire le volume des donn\u00e9es avant leur transmission ou stockage. La d\u00e9compression des fichiers ZIP est l’\u00e9tape indispensable pour retrouver les fichiers dans leur forme originelle avant de pouvoir les exploiter.<\/p>\n

\"DCSnet<\/p>\n

En pr\u00e9sence de nombreux fichiers ZIP<\/strong> (\u00e0 l’image des FEC extraits \u00e0 partir de la nouvelle version de DCSnet<\/a>), leur d\u00e9compression gagne \u00e0 \u00eatre automatis\u00e9e<\/strong>. C’est ce que proposent les deux macros VBA ci-apr\u00e8s. Le classeur Excel comprenant les deux macros est t\u00e9l\u00e9chargeable en bas de cet article.<\/p>\n

Le premi\u00e8re macro<\/strong> passe en revue tous les fichiers (\u00e0 l’aide de la boucle Do While… Loop<\/em>) d’un dossier (d\u00e9sign\u00e9 par la variable Dossier_Source<\/em> renvoyant ici vers le dossier Z:\\ZIP FEC<\/em>). D\u00e8s lors qu’un fichier ZIP est trouv\u00e9 (identifi\u00e9 par le test conditionnel (If FSO.GetExtensionName(Dossier_Source & “\\” & NomFichierZIP) = “ZIP” Then<\/em>), il est d\u00e9compress\u00e9 gr\u00e2ce \u00e0 la m\u00e9thode .CopyHere<\/em> de l’objet Namespace<\/em> vers le dossier indiqu\u00e9 par la variable Dossier_Cible<\/em> (ici : Z:\\FEC<\/em>).<\/p>\n

Option Explicit\r\n\r\n\r\nSub Unzip()\r\n    'D\u00e9finition des variables\r\n    Dim FSO As Object\r\n    Dim ShApp As Object\r\n    '---Chemin du dossier contenant les fichiers ZIP\r\n    Dim Dossier_Source As Variant\r\n    '---Chemin du dossier o\u00f9 transf\u00e9rer les fichiers d\u00e9zipp\u00e9s\r\n    Dim Dossier_Cible As Variant\r\n    '---Nom du fichier ZIP\r\n    Dim NomFichierZIP As Variant\r\n\r\n    Set ShApp = CreateObject(\"shell.application\")\r\n    Set FSO = CreateObject(\"scripting.filesystemobject\")\r\n    \r\n    'D\u00e9finition du dossier contenant des fichiers ZIP\r\n    Dossier_Source = \"Z:\\ZIP FEC\"\r\n    \r\n    'D\u00e9finition du dossier destination\r\n    Dossier_Cible = \"Z:\\FEC\"\r\n    \r\n    NomFichierZIP = Dir(Dossier_Source & \"\\\")\r\n    Do While NomFichierZIP <> \"\"\r\n        If FSO.GetExtensionName(Dossier_Source & \"\\\" & NomFichierZIP) = \"ZIP\" Then\r\n            ShApp.Namespace(Dossier_Cible & \"\\\").CopyHere ShApp.Namespace(Dossier_Source & \"\\\" & NomFichierZIP).Items\r\n        End If\r\n        NomFichierZIP = Dir\r\n    Loop\r\nEnd Sub<\/pre>\n
Cette deuxi\u00e8me macro<\/strong> remplit la m\u00eame fonction que la pr\u00e9c\u00e9dente \u00e0 la diff\u00e9rence pr\u00e8s que le contenu des variables Dossier_Source<\/em> et Dossier_Cible<\/em> est d\u00e9fini en dur dans le code source de la premi\u00e8re (Dossier_Source<\/em> = “..”) et sur s\u00e9lection de l’utilisateur dans la seconde.<\/p>\n
Dans ce deuxi\u00e8me code source, la d\u00e9finition des sources et cibles s’op\u00e8re avec la commande FileDialog<\/em><\/strong>. Celle-ci s’utilise en deux temps :<\/p>\n