Bonjour à tous,

Je cherche a copier plusieurs fichier d'un emplacement "source" vers un emplacement "destination" en ouvrant une fenetre de dialogue.
le souci c'est que dans le répertoire "source" j'ai plusieur fichiers, et je voudrais copier seulement les fichiers créer à une certaine date (date du jour). c'est possible de faire ce filtre sous VBA ?

Voici le code qui me permet de copier les fichiers mais sans le filtre (je le fais manuellement a travers la fenetre de dialogue)

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 Fichiers_Selection_multiple()
Dim Fichier As Variant
Dim NomFichier As String
Dim I As Integer
 
Fichier = Application.GetOpenFilename(Title:="Sélection multiple", MultiSelect:=True)
 
If TypeName(Fichier) = "Boolean" Then
  Exit Sub
Else
  For I = 1 To UBound(Fichier)
    NomFichier = Mid(Fichier(I), InStrRev(Fichier(I), "\") + 1)
    FileCopy Fichier(I), "N:\Projets01\AVANCES_GLOBAL\COMPTA\DEVELLOPEMENT INCIDENTS\DEVELLOPEMENTS\Automatisation comptabilité quotidienne\TEST" & "\" & NomFichier
  Next
End If
End Sub

Je vous remercie par avance pour vos lumieres

Cordialement,

Freudsw