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 : 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"
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.