Astuces Excel
  1. Astuces Excel
  3. Excel Macro Nom de file différent après Zip Extract
Intereting Posts
nombre de cellules en fonction de la date courante dans la feuille de calcul Excel Mesurer de multiples distances dans google maps / wikimapia Lire XML en utilisant la macro Excel VBA et personnaliser le tableau généré Augmentez la valeur dans les feuilles de calcul (+1) lorsque vous choisissez un nom spécifique dans une list déroulante Permettre la formule insérée via VBA pour s'adapter à la numérotation des lignes Le graphique linéaire Excel ne s'affiche pas les semaines suivantes avec na () Comment supprimer la colonne entière, y compris l'en-tête si toutes les lignes contiennent la valeur 0 Destination Excel SSIS – trop de champs définis Configuration de colonne Telerik PivotGrid Excel VBA – Lorsque 2 cellules dans une colonne sont identiques, ajoutez le 2 nombre de corrisponce dans la colonne suivante Besoin d'aide pour réduire les espaces hors colonne Comment créer une formule VBA qui prend de la valeur et du format à partir de la cellule source Comment append des valeurs à un file Excel? Comment puis-je convertir un file .ods en un file .xls Graphique Excel: convertir les valeurs de l'axe Y en catégories Y

Excel Macro Nom de file différent après Zip Extract

Voici mon code: 

Sub TestRun() ' Define variables Dim file As Ssortingng, folder As Ssortingng ' Define working directory folder = "E:\MainFolder\Appointments\" ' Define type of file to search for file = Dir(folder & "*.zip") ZipPath = "E:\MainFolder\Appointments\" & file Call UnZip(folder, ZipPath) End Sub

Ce que je souhaite avoir un nom de file différent après l'extraction. Je veux qu'il soit des rendez-vous.csv au lieu du file

Vous pouvez simplement renommer votre file en utilisant la fonction Name après l'avoir extrait 

 Name folder & oldFilename As folder & newFilename