Trouver des fichier en utilisant la date et l'heure

Bonsoir les amis!

je suis un peu bloqué la avec un petit exercice, je dois trouver des fichier en utilisant l'heure, minute, seconde et milliseconde et le chiffre a la fin qui se situe dans leurs noms:

Je peux maintenant trouver par exemple le fichier qui se termine par 510572 avec ce code la, mais il existe 8 fichier qui se termine par 510572 et je veux trouver juste les fichiers qui se situent entre 16:28:51:327et 16:36:41:070 (16= heure, 36= minute, 41= secondes, 070: milliseconde) . c'est l'utilisateur qui doit entrer l'heure, minute.... dans l'inputbox et le programme doit trouver les fichier automatiquement...

J'apprecie tout aide!! Merci beaucoup

critere= InputBox("c'est quoi la critere?")

  If Right$(strPath, 1) <> "\" _
    Then strPath = strPath & "\"

 strFile = Dir(strPath & "*" + critere+ ".csv")
  Debug.Print strFile
  Do While strFile <> ""

   If GetExtension(strFile) Like "csv*" Then
      Debug.Print "EXCEL:", strFile

    End If
   strFile = Dir()
  Loop

bonjour,

une proposition

critere = InputBox("c'est quoi la critere?")
heuredebut = InputBox("heure de debut : hh.mm.ss.mmm")
heurefin = InputBox("heure de fin : hh.mm.ss.mmm")
  If Right$(strPath, 1) <> "\" _
    Then strPath = strPath & "\"

 strfile = Dir(strPath & "*" + critere + ".csv")
  Do While strfile <> ""

   If getextension(strfile) Like "csv*" Then
   timestamp = Mid(strfile, 20, 12)
   If timestamp >= heuredebut And timestamp <= heurefin Then
      Debug.Print "EXCEL:", strfile
 End If
    End If
   strfile = Dir()
  Loop

Merci enormement ca marche parfaitement, j'ai mis des heures a utiliser la fonction split pour mettre les dates dans un array et apres voir.... et la ca marche dans une ligne.