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:
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
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: