Renommer tous les fichiers avec la date du jour
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.
Code:
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" |
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.
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.
