Loop import selon préfixe de nom de fichier

Bonjour à tous!

Bloqué sur VBA, je fais appel à votre aide.

Voilà, je possède un répertoire de fichiers .fic où les noms de fichiers sont constitués de "yyyymmjj"&"TESTI.fic (ex: 20200221TESTI.fic). Mon objectif était d'importer ces fichiers dans ma feuille mais seulement certains fichiers (correspondant à une fourchette de dates). Je veux donc créer en paramètre une fourchette de date (date de début, date de fin) qu'on puisse changer manuellement, et qui va permettre l'import de tout les fichiers compris entre ces dates.

Exemple : date de début= 20200201; date de fin=20200210; cela importe tout les fichiers du 1 au 10 fév. Les fichiers importés s'aggrègent dans la feuille "Data".

Je ne sais pas si j'ai été assez clair?

Merci beaucoup de votre aide!

Bonjour,

voici un exemple,

Dim dtDébut As Double, dtFin As Double, n  As Integer
dtDébut = DateSerial(2020, 2, 20)
dtFin = DateSerial(2020, 2, 25)
n = dtFin - dtDébut
  For i = 0 To n - 1
    dt = Format(dtDébut + i, "yyyymmdd")
    fichier = dt & "TEST.fic"
    Workbooks.OpenText....

  Next

Merci beaucoup i20100 pour cette réponse!

Cela a l'air de marcher mais lorsqu'un fichier n'existe pas (exemple: entre le 20/2 et le 25/2, le fichier du 22/2 n'existe pas), le code s'arrête! J'aimerais pouvoir passer au prochain fichier si un n'existe pas.

Merci

re,

à tester,

Dim sBase As String, test As String
Dim dtDébut As Double, dtFin As Double, n  As Integer
sBase = "F:\Fastnet\2020\"
dtDébut = DateSerial(2020, 2, 20)
dtFin = DateSerial(2020, 2, 25)
n = dtFin - dtDébut
  For i = 0 To n - 1
    dt = Format(dtDébut + i, "yyyymmdd")
    Fichier = sBase & dt & "TEST.fic"

    test = Dir(Fichier)

    If test <> "" Then
'      Workbooks.OpenText....
    End If
  Next

C'est parfait, merci beaucoup!!

Juste une dernière petite chose et qui est assez compliqué pour moi... j'aimerais coller à la suite les données importés de chaque fichier, aurais-tu un code à proposer?