Bonjour à tous,
J'ai actuellement un code qui permet de créer un répertoire qui a comme nom le mois et l'année en cours et de copier des fichiers Excel vers ce répertoire.
Maintenant, j'essaye de renommer tous les fichiers Excel compris dans le répertoire que je viens de créer pour qu'ils aient comme nom le "nomdufichier" + dossierDate.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 Option Explicit 'Déclaration des variables Dim fs, DossierDate, DossierModele, Fichier 'construction du nom du dossier destination à partir de la date du jour 'Il ne faut oublier le \ à la fin DossierDate = Year(Now) & "-" & Month(Now) & "\" 'Création de dossiers à l'aide du composant FileSystemObject Set fs = CreateObject("Scripting.FileSystemObject") If Not(fs.FolderExists("C:\Test\" & DossierDate)) Then 'Création de la destination fs.CreateFolder ("C:Test\" & DossierDate) MsgBox "Le dossier " & DossierDate & " a été créé" else MsgBox "Le dossier " & DossierDate & " existe déjà" End If 'récupération du dossier model Set DossierModele = fs.Getfolder("C:Model\") 'parcours du dossier model For Each Fichier In DossierModele.Files If (UCase(fs.GetExtensionName(Fichier.Name))) = UCase("XLSX") Then 'On copie les fichiers excel vers C:\ fs.CopyFile Fichier.Path,"C:\Test\" & DossierDate End If Next MsgBox "Copie des fichiers dans le dossier " & DossierDate & " terminée"
En effet, ces fichiers sont utilisé tous les mois ainsi pour éviter les erreur j'aimerais bien qu'ils aient la date (mois + année) de l'année en cours.
Je vous remercie par avance de votre aide.
Partager