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 !