Fusionner plusieurs fichier en fonction d'une date

Bonjour a tous ,

Je dispose d'un dossier avec plusieurs fichiers "yyyymmdd.csv" et je souhaite les rassembler en un seul en fonction de deux dates.

Pour l'instant, j'ai reussi rassemble et fusionne tous les fichiers dans mon fichier "test" via deux macro:

- la premiere, rajoute automatiquement les feuilles des excels qui se trouvent dans le meme fichier que mon excel "test" qui contient la macro

--> Je souhaiterais si possible donner une direction a la macro directement, sans avoir le fichier "test" dans le dossier de fichiers que je souhaite concatener + rajouter une date de debut et de fin car l'extansion des fichiers contient une date

- la deuxieme, fusionne simplement toutes les feuilles de mon fichier test

MON PROBLEME : Je n'arrive pas a definir une variable date de debut et de fin pour que la macro selectionne uniquement ses fichiers entre ces deux dates.

Sub CsvConsolider()
' Insère dans ce fichier tous les CSV du répertoires + format xls directement
ChDir ActiveWorkbook.Path
Set classeurMaitre = ActiveWorkbook
compteur = 1
nf = Dir("*.cs*")
Do While nf <> ""
If nf <> classeurMaitre. Name Then  'enlever espace entre Maitre. & name
Workbooks.Open Filename:=nf
For k = 1 To Sheets.Count
Sheets(k).Copy After:=classeurMaitre.Sheets(classeurMaitre. Sheets.Count) 'enlever espace entre Maitre. & sheets
'classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = "" & compteur 'enlever espace entre Maitre. & sheets
compteur = compteur + 1
Next k
Workbooks(nf).Close False
End If
nf = Dir
Loop
End Sub

Sub transfert()

Dim dlgR, dlgi As Double
Dim i As Byte
Application.ScreenUpdating = False

Rows("2:65536").Delete Shift:=xlUp
On Error GoTo FIN
For i = 1 To Worksheets.Count

If UCase(Sheets(i).Name) <> "Sheet1" Then
dlgR = Sheets("MKRT_4832_FirmTradeActivityRepo").Range("a" & Rows.Count).End(xlUp).Row
With Sheets(i)
dlgi = .Range("a" & Rows.Count).End(xlUp).Row

.Range("A2:FU" & dlgi).Copy Sheets("MKRT_4832_FirmTradeActivityRepo").Range("a" & dlgR + 1)
End With
End If
Next
FIN:

End Sub

PS: J'ai essaye de rajouter le code ci-dessous mais sans succes

Sub DeclareVariableCommeDate()

Dim datedebut As Date
Dim datefin As Date

datedebut = #1/1/2019#
datefin = "1/2/2019"

Range("A1").Value = datedebut
Range("A2").Value = datefin

End Sub

Merci pour votre aide ! N'hesitez pas a me demander plus d'information

Bonjour,

As-tu la possibilité d'installer Power Query ?

Cdlt.

Hello,

Desole pour cette reponse tardive, je n'ai pas la possibilite d'avoir PowerQuery celon l'IT.

Merci pour ta reponse