Discussion :

[hadrien2811]

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.

[kiki29]

Salut, en incorporant qqch comme cette chaine dans ton nom de fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim sDate As String
  sDate = Format(Now, "mmmm yyyy")

[hadrien2811]

merci kiki29 mais je savais deja. Le truc c'est que tout les fichiers excell ne porte pas le meme nom mais je voudrais que chaque fichiers aient dans leur nom le mois et l'annee en cours.

[hackoofr]

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 ,NewName
'construction du nom du dossier destination à partir de la date du jour
'Il ne faut oublier le \ à la fin 
'NewName = Year(Now) & "-" & Month(Now) 
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:\
        NewName = fs.GetBaseName(Fichier) & "_" & Year(Now) & "-" & Month(Now) & ".xlsx"
        fs.CopyFile Fichier.Path,"C:\Test\" & DossierDate & NewName
    End If
Next
MsgBox "Copie des fichiers dans le dossier " & DossierDate & " terminée"

[hadrien2811]

merci hackoofr tu es genial