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
Partager