Discussion :

[madm-selleso]

Bonjour à tous,

Déjà je m'excuse d'avance mais je suis débutante en VBA.
Je vais essayer d'expliquer mon problème, je voudrais pouvoir copier tous les fichiers d'extension .xls dont la date de modification est du 26/03/2009 puis le coller dans le dossier de l'année de la modification, c'est a dire ici 2009.

Voici mon code,

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
Sub test_essai_macro()
 
          Lannee = (Year(Now))
          DateF = FileDateTime("F:\EXCEL\Bilans classeurs\ & .xls")
          DateR = "26/03/2009"
           If (InStr(DateF, DateR)) > 0 Then
 
        'Sub copiercoller()
 
                   FileCopy "F:\EXCEL\Bilans classeurs\&.xls", "F:\EXCEL\Bilans classeurs\2009\&.xls"
                              Else
 
           End If
 
End Sub

Merci beaucoup à tous ceux qui vont réfléchir sur mon code
Bonne journée !

[DeaD78]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub SearchFiles()
    Dim DateMod As String
    Dim fs As Object, fil As Object
 
    Set fs = CreateObject("Scripting.FilesystemObject")
    DateMod = "26/03/2009"
    For Each fil In fs.GetFolder("F:\EXCEL\Bilans classeurs\").Files
        If Left(fil.DateLastModified, 10) = DateMod Then
            FileCopy "F:\EXCEL\Bilans classeurs\" & fil.Name", "F:\EXCEL\Bilans classeurs\2009\" & fil.Name"
        End If
    Next
End Sub

Ca devrait marcher.

A+

[madm-selleso]

Salut DeaD78,

ça ne marche pas, un problème au niveau de :

Code :

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

FileCopy "F:\EXCEL\Bilans classeurs\" & fil.Name", "F:\EXCEL\Bilans classeurs\2009\" & fil.Name"

Par contre je ne comprends pas, le fil.Name correspond à quoi ? A tous les fichiers avec l'extension .xls ?

Encore désolée ... :/ Mais j'essaie de comprendre le code pour essayer de trouver l'erreur mais sans succès !!

[DeaD78]

Je me suis trompé en recopiant la ligne :

Code :

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

FileCopy "F:\EXCEL\Bilans classeurs\" & fil.Name, "F:\EXCEL\Bilans classeurs\2009\" & fil.Name

Là ça marchera, j'ai testé chez moi.

fil.Name correspond juste au nom de ton fichier ayant la bonne date de modification. Vu que tu es dans une boucle vu qu'il peut y en avoir plusieurs, cela correspond au nom des fichiers l'un après l'autre.

[madm-selleso]

Super ça marche parfaitement. Merci beaucoup !!

Seulement j'abuse encore de votre gentille et j'en suis désolée ! Mais en faite ces fichiers devront être coller dans les dossiers non créer en fonction du mois et de l'année de la date de modification du fichier!

Exemple:
J'ai 3 fichiers .xls dont la date de modification est du 14-06-2010, alors il faudrait les copier dans le dossier "Juin 2010" que l'ont devra créer

J'ai essayer ceci comme code, mais apparament ce n'est pas ça !!

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
 Sub rangement_dossier()
 
    Dim DateMod As String
    Dim fs As Object, fil As Object
 
    Lannee = (Year(Now))
    Lemois = (Month(Now))
 
    Set fs = CreateObject("Scripting.FilesystemObject")
    DateMod = "14/" & Lemois & Lannee
    For Each fil In fs.GetFolder("D:\EXCEL\Bilans\classeur").Files
        If Left(fil.DateLastModified, 10) = DateMod Then
            FileCopy "D:\EXCEL\Bilans\classeur\" & fil.Name, "D:\EXCEL\Bilans\classeur\&Lemois & Lannee & " \ " & fil.Name"
        End If
    Next
End Sub

Encore désolée de demander encore et encore mais j'essaie de progresser en VBA !!
Merci beaucoup d'avance !!!

[DeaD78]

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
Sub Test()
    Dim DateMod As String
    Dim fs As Object, fil As Object
    Dim Year As String
    Dim Month As String
    Dim Chemin$
 
    Set fs = CreateObject("Scripting.FilesystemObject")
    DateMod = "26/03/2009"
 
    Chemin = "F:\EXCEL\Bilans classeurs\"
 
    For Each fil In fs.GetFolder(Chemin).Files
        If Left(fil.DateLastModified, 10) = DateMod Then
            Year = Mid(fil.DateLastModified, 7, 4)
            Month = Mid(fil.DateLastModified, 4, 2)
            If Month = "01" Then Month = "Janvier"
            End If
            If Month = "02" Then Month = "Février"
            End If
            If Month = "03" Then Month = "Mars"
            End If
            'Etc
            MkDir (Chemin & Month & " " & Year)
            FileCopy "F:\EXCEL\Bilans classeurs\" & fil.Name, "F:\EXCEL\Bilans classeurs\" & Month & " " & Year & "\" & fil.Name
        End If
    Next
End Sub

Cela fait exactement ce que tu souhaites. Finis de compléter le 'Etc

Bonne soirée.