Ouvrir le fichier dont le nom comporte la date la plus récente

WIsh_

XLDnaute Occasionnel
Bonjour à tous,

Ci-après un extrait de code d'une de mes macros qui ouvre un classeur qui se trouve dans un dossier pour en copier une plage de donnée:

VB:
Set wbData = Workbooks.Open("D:\test rapport\Project_Rapport 2020_Situation -17052020_LONG.xlsm")
Set wsData = wbData.Worksheets("BA RE T.C.")

Union(wsData.Range("BARETC1"), wsData.Range("BARETC2")).Copy

With WsMaster1.Cells(Ligne, 14)
.PasteSpecial xlPasteValues
End With

Application.CutCopyMode = False

A l'emplacement "D:\test rapport\", un nouveau fichier vient s'ajouter chaque semaine. Et c'est ce fichier que je dois aller ouvrir pour en copier les données.
Le nom du fichier est toujours identique, sauf la date qu'il comporte : "Project_Rapport 2020_Situation -17052020_LONG.xlsm".

Ainsi, la semaine prochaine, le fichier à aller chercher s'appellera "Project_Rapport 2020_Situation -18052020_LONG.xlsm", et celui de la semaine d'après, "Project_Rapport 2020_Situation -27052020_LONG.xlsm", etc.

=> Je n'arrive pas à remplacer ma ligne de code pour que la macro ouvre à chaque fois le fichier du dossier qui comporte dans son nom la date la plus récente.

Quelqu'un aurait-il une idée ?

Merci beaucoup d'avance,
Wish
 
Dernière édition:
Solution
re
VB:
Option Explicit
Sub test()
    Dim wbData As Workbook
    Dim pth As String       'path
    Dim prf As String       'préfixe
    Dim suf As String       'suffixe
    Dim nom As String       'nom
    Dim dat As Date         'date
    Dim dat2 As Date        'date
    Dim fichier$

    dat = CDate("01/01/1900")
    pth = "C:\Users\polux\DeskTop\33740\"
    prf = "Project_Rapport 2020_Situation -"
    suf = "_LONG.xlsm"
    nom = Dir(pth & prf & "*" & suf)
    Do While nom > ""
        nom = Trim(Replace(Replace(nom, prf, ""), suf, ""))
        If IsNumeric(nom) And Len(nom) = 8 Then
            If IsDate(Format(nom, "##/##/####")) Then
                dat2 = CDate(Format(nom, "##/##/####"))
                If dat2 > dat Then fichier...

jmfmarques

XLDnaute Accro
Si j'avais la possibilité d'influer sur le nom du fichier ou son emplacement, oui, cela aurait été plus simple, et non je n'aurais pas posé cette question.
tu l'as forcément, en ta qualité de développeur intervenant, puisque, toujours avec cette qualité, ce sont TES instructions qui "nomment" (probablement avec saveas)
Et si tel n'est pas le cas et que tu te trouves dans l'impossibilité de modifier quoi que ce soit, je ne vois plus alors à quoi servirait (franchement ...) d'ouvrir ici la discussion que tu y as ouverte ... :cool:
 

Discussions similaires

Statistiques des forums

Discussions
312 184
Messages
2 086 006
Membres
103 088
dernier inscrit
Psodam