{"id":9515,"date":"2021-04-10T10:17:02","date_gmt":"2021-04-10T08:17:02","guid":{"rendered":"https:\/\/www.auditsi.eu\/?p=9515"},"modified":"2021-05-21T11:17:36","modified_gmt":"2021-05-21T09:17:36","slug":"automatiser-la-copie-le-renommage-et-la-suppression-de-fichiers","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=9515","title":{"rendered":"Automatiser le quotidien : copier, renommer et supprimer de grandes quantit\u00e9s de fichiers en un tournemain"},"content":{"rendered":"

Tous ceux qui ont \u00e0 analyser des donn\u00e9es ou \u00e0 \u00e9tablir le reporting mensuel au sein d’un groupe pourront en t\u00e9moigner : la collecte des donn\u00e9es (comptables, commerciales, de gestion…) consomme beaucoup de temps. Chaque logiciel cr\u00e9e ses extractions de donn\u00e9es dans des dossiers distincts, sur ses propres serveurs…<\/p>\n

\"Boutons<\/p>\n

L’\u00e9tape de la collecte des donn\u00e9es pour les regrouper dans un dossier unique, sous des noms normalis\u00e9s n\u00e9cessite beaucoup de manipulations manuelles… Surtout dans un groupe de taille importante.<\/p>\n

Autant de manipulations qui empi\u00e8tent sur le temps d’analyse… Une macro VBA peut tout \u00e0 fait automatiser cette t\u00e2che r\u00e9barbative.<\/p>\n

Copier des fichiers<\/strong> :<\/p>\n

La copie de fichiers est r\u00e9alis\u00e9e \u00e0 l’aide de la commande FileCopy.<\/p>\n

Cette commande n\u00e9cessite deux param\u00e8tres : le nom du fichier source (avec le chemin d’acc\u00e8s) et celui du fichier destination :<\/p>\n

FileCopy FichierOriginal FichierCopie<\/p>\n

Le nom du fichier destination (FichierCopie<\/em>) peut \u00eatre diff\u00e9rent du nom original, ce qui a pour effet de le nommer diff\u00e9remment.<\/p>\n

Ainsi :<\/p>\n

FileCopy “C:\\Fichier1.txt” “D:\\Dossier\\Tiers.txt”<\/p>\n

Copie le fichier nomm\u00e9 Fichier1.txt (situ\u00e9 dans la racine du disque C:\\) vers le dossier D:\\Dossier et le renomme Tiers.txt.<\/p>\n

Si le fichier existe d\u00e9j\u00e0 dans le dossier de destination, le nouveau fichier \u00e9crase l’ancien purement et simplement sans notification (sans demander confirmation \u00e0 l’utilisateur) et sans possibilit\u00e9 de revenir en arri\u00e8re. Afin d’\u00e9viter d’\u00e9craser des fichiers, il est possible de tester leur existence.<\/p>\n

Tester l’existence d’un fichier<\/strong> :<\/p>\n

Le langage VBA ne comprend pas de fonction testant l’existence de fichiers. Il est possible de cr\u00e9er de toute pi\u00e8ce une telle fonction :<\/p>\n

Function FichierExiste(NomDuFichier As String)\r\n     If Len(Dir(NomDuFichier)) = 0 Then\r\n          FichierExiste = False\r\n     Else:\r\n          FichierExiste = True\r\n     End If\r\nEnd Function<\/pre>\n
La fonction FichierExiste<\/em> renvoie un bool\u00e9en True<\/em> (vrai) si fichier existe, sinon False<\/em> (faux).<\/p>\n
Explication de la formule Len(Dir(NomDuFichier))<\/em> : la fonction Dir()<\/em> retourne le nom du fichier test\u00e9 si ce fichier existe (si le fichier n’existe pas, la fonction Dir()<\/em> retourne une cha\u00eene de caract\u00e8res vide). La fonction Len()<\/em> retourne le nombre de caract\u00e8res contenus dans une cha\u00eene (String<\/em>). Aussi, si la cha\u00eene est vide, Len()<\/em> renvoie 0 (z\u00e9ro), signe que le fichier n’existe pas.<\/p>\n
Cette fonction s’utilise, par exemple, ainsi :<\/p>\n
If FichierExiste(“D:\\Dossier\\Tiers.txt”) Then Name “D:\\Dossier\\Tiers.txt” As “D:\\Dossier\\Tiers SAUVEGARDE.txt”<\/p>\n
Si le fichier Tiers.txt<\/em> existe, il est renomm\u00e9 (commande Name<\/em>, cf ci-apr\u00e8s) Tiers SAUVEGARDE.txt<\/em>.<\/p>\n
Renommer ou d\u00e9placer des fichiers<\/strong> :<\/p>\n
L’instruction Name AncienNom As NouveauNom<\/em> assure cette t\u00e2che.<\/p>\n
Supprimer des fichiers<\/strong> :<\/p>\n
La commande Kill FichierASupprimer<\/em> remplit cette t\u00e2che. A noter, cette suppression est irr\u00e9versible. En effet, les fichiers supprim\u00e9s par cette commande ne transitent pas par la corbeille. La plus grande pr\u00e9caution est de mise avant d’utiliser cette instruction.<\/p>\n
Exemple<\/strong> :<\/p>\n
Exemple de macro VBA, utilis\u00e9e dans le cadre du projet d’analyse de donn\u00e9es PADoCC_Ecritures, qui automatise la collecte des fichiers FEC mensuels produits par SAGE 1000 (localis\u00e9s dans DossierSource<\/em>) ainsi que les donn\u00e9es d’identification des comptes de tiers (SIREN…) et les recopie dans les dossiers DossierDestinationPAD<\/em> et DossierDestinationRES<\/em> :<\/p>\n
Option Explicit\r\n\r\nSub Traitement_Export_SAGE1000()\r\n    Dim DossierSource As String\r\n    Dim DossierDestinationPAD As String\r\n    Dim DossierDestinationRES As String\r\n    Dim FichierOriginal As String\r\n    Dim FichierCopie As String\r\n    Dim N As String\r\n    Dim Np1 As String\r\n    \r\n    DossierSource = \"S:\\Dir Pole Compta\\Export Sage1000\\\"\r\n    DossierDestinationPAD = \"C:\\PADoCC_Ecritures\\Sources\\\"\r\n    DossierDestinationRES = \"S:\\FEC\\\"\r\n    \r\n    N = \"2020\"\r\n    Np1 = \"2021\"\r\n    \r\n    'Entit\u00e91\r\n    '---FEC N\r\n    FichierOriginal = DossierSource & \"Entit\u00e91\\Entit\u00e91_\" & N & \".txt\"\r\n    FichierCopie = DossierDestinationPAD & \"FEC\\\" & N & \"1231\\4.......7FEC\" & N & \"1231.txt\"\r\n    FileCopy FichierOriginal, FichierCopie\r\n    FichierCopie = DossierDestinationRES & \"4.......7FEC\" & N & \"1231.txt\"\r\n    FileCopy FichierOriginal, FichierCopie\r\n    '---FEC N+1\r\n    FichierOriginal = DossierSource & \"Entit\u00e91\\Entit\u00e91_\" & Np1 & \".txt\"\r\n    FichierCopie = DossierDestinationPAD & \"FEC\\\" & Np1 & \"1231\\4.......7FEC\" & Np1 & \"1231.txt\"\r\n    FileCopy FichierOriginal, FichierCopie\r\n    FichierCopie = DossierDestinationRES & \"4.......7FEC\" & Np1 & \"1231.txt\"\r\n    FileCopy FichierOriginal, FichierCopie\r\n    '---TIERS\r\n    FichierOriginal = DossierSource & \"Entit\u00e91\\TIERS.txt\"\r\n    FichierCopie = DossierDestinationPAD & \"Tiers_ID\\TIERS_Entit\u00e91.txt\"\r\n    FileCopy FichierOriginal, FichierCopie\r\n    FichierCopie = DossierDestinationRES & \"TIERS_Entit\u00e91.txt\"\r\n    FileCopy FichierOriginal, FichierCopie\r\n\r\n    'Entit\u00e92\r\n    '---FEC N\r\n    FichierOriginal = DossierSource & \"Entit\u00e92\\Entit\u00e92_\" & N & \".txt\"\r\n    FichierCopie = DossierDestinationPAD & \"FEC\\\" & N & \"1231\\9.......8FEC\" & N & \"1231.txt\"\r\n    FileCopy FichierOriginal, FichierCopie\r\n    FichierCopie = DossierDestinationRES & \"9.......8FEC\" & N & \"1231.txt\"\r\n    FileCopy FichierOriginal, FichierCopie\r\n    '---FEC N+1\r\n    FichierOriginal = DossierSource & \"Entit\u00e92\\Entit\u00e92_\" & Np1 & \".txt\"\r\n    FichierCopie = DossierDestinationPAD & \"FEC\\\" & Np1 & \"1231\\9.......8FEC\" & Np1 & \"1231.txt\"\r\n    FileCopy FichierOriginal, FichierCopie\r\n    FichierCopie = DossierDestinationRES & \"9.......8FEC\" & Np1 & \"1231.txt\"\r\n    FileCopy FichierOriginal, FichierCopie\r\n    '---TIERS\r\n    FichierOriginal = DossierSource & \"Entit\u00e92\\TIERS.txt\"\r\n    FichierCopie = DossierDestinationPAD & \"Tiers_ID\\TIERS_Entit\u00e92.txt\"\r\n    FileCopy FichierOriginal, FichierCopie\r\n    FichierCopie = DossierDestinationRES & \"TIERS_Entit\u00e92.txt\"\r\n    FileCopy FichierOriginal, FichierCopie\r\nEnd Sub<\/pre>\n
Reconstitution du nom d’un fichier FEC (pour rappel, un fichier FEC doit \u00eatre nomm\u00e9 ainsi : SIREN + FEC + aaaammjj.txt) :<\/p>\n
“999999999FEC” & N & “1231.txt”<\/p>\n
Avec N=”2020″ : le nom du fichier FEC : 999999999FEC20201231.txt<\/p>\n
Pour des raisons de confidentialit\u00e9, le nom des FEC a \u00e9t\u00e9 remplac\u00e9 par des “…….”.<\/p>\n
Autre solution : les commandes DOS (fichiers Batch<\/em>) :<\/strong><\/p>\n
Les plus anciens (ou les moins jeunes) qui ont connu MS\/DOS<\/a> se rappelleront que dans les ann\u00e9es 80\/90 ces actions de transfert de fichiers \u00e9taient r\u00e9alis\u00e9es \u00e0 l’aide de fichiers batch<\/em> (*.BAT) qui contenaient les lignes de commandes \u00e0 ex\u00e9cuter.<\/p>\n
Exemple (copie de fichier) :<\/p>\n
copy D:\\export.txt C:\\comptes\\balance.txt<\/pre>\n
Principales commandes MS\/DOS li\u00e9es \u00e0 la gestion de fichiers :<\/p>\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
Commandes<\/td>\nDescription<\/td>\n<\/tr>\n
ATTRIB<\/td>\nAffiche ou modifie les attributs d’un fichier.<\/td>\n<\/tr>\n
CD<\/td>\nModifie le r\u00e9pertoire ou affiche le r\u00e9pertoire en cours.<\/td>\n<\/tr>\n
CHKDSK<\/td>\nV\u00e9rifie un disque et affiche un relev\u00e9 d’\u00e9tat.<\/td>\n<\/tr>\n
CLS<\/td>\nEfface l’\u00e9cran.<\/td>\n<\/tr>\n
COPY<\/td>\nCopie un ou plusieurs fichiers.<\/td>\n<\/tr>\n
DATE<\/td>\nAffiche ou modifie la date.<\/td>\n<\/tr>\n
DEL<\/td>\nSupprime un ou plusieurs fichiers.<\/td>\n<\/tr>\n
DIR<\/td>\nAffiche la liste des fichiers du r\u00e9pertoire.<\/td>\n<\/tr>\n
ECHO<\/td>\nAffiche des messages.<\/td>\n<\/tr>\n
ERASE<\/td>\nSupprime un ou plusieurs fichiers.<\/td>\n<\/tr>\n
FORMAT<\/td>\nFormate un disque.<\/td>\n<\/tr>\n
FTYPE<\/td>\nAffiche ou modifie les types de fichiers utilis\u00e9s dans les associations d’extensions.<\/td>\n<\/tr>\n
MD<\/td>\nCr\u00e9e un r\u00e9pertoire.<\/td>\n<\/tr>\n
MOVE<\/td>\nD\u00e9place des fichiers d’un r\u00e9pertoire \u00e0 un autre.<\/td>\n<\/tr>\n
REN<\/td>\nRenomme un ou plusieurs fichiers.<\/td>\n<\/tr>\n
REPLACE<\/td>\nRemplace des fichiers.<\/td>\n<\/tr>\n
RMDIR<\/td>\nSupprime un r\u00e9pertoire.<\/td>\n<\/tr>\n
XCOPY<\/td>\nCopie des fichiers et des arborescences de r\u00e9pertoires.<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
De nos jours, les fichiers batch sont encore ex\u00e9cutables dans la console DOS (la console est accessible \u00e0 partir du menu Windows 10 : Syst\u00e8me Windows \/ Invite de commandes) :<\/p>\n
\"Menu<\/p>\n
Console Invite de commandes de Windows 10 :<\/p>\n
\"Console<\/p>\n
___<\/p>\n
Pour approfondir le sujet : Analyse de donn\u00e9es<\/a> \/ Automatisation<\/a> \/ VBA<\/a><\/p>\n
\"Share<\/a>