ouvrir le fichier le plus récent
Bonjour à tous,
Je viens solliciter votre aide pour le cas suivant :
j'utilise une macro chaque jour pour mettre à jours mes données depuis une extraction qui se fait 4 fois par jours, sauf que quand je lance ma macro elle me prend que la 1ère extraction celle de 7h du matin, sauf que je veux qu'elle prenne la dernière extraction la plus récente. Pouvez vous m'aider svp?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
| Sub MAJ()
Application.ScreenUpdating = False
'DEFINITION JOUR ET MOIS
'on définit le mois en ajoutant un 0 si inférieur à 10
mois = Month(Date)
If mois < 10 Then
mois = 0 & mois
Else: mois = mois
End If
'on définit le jour en ajoutant un 0 si inférieur à 10
jour = Day(Date)
If jour < 10 Then
jour = 0 & jour
Else: jour = jour
End If
' on ouvre l'extraction sur le réseau en fonction de l'heure qu'il est
If Time > TimeSerial(12, 0, 0) Then
Repertoire = "S:\RPA_Download"
Fichier = Dir(Repertoire & "Account_" & jour1 & "*.xlsx")
If Len(Fichier) > 0 Then
Workbooks.Open Filename:=Repertoire & Fichier
End If
Else
Repertoire = "S:\RPA_Download"
Fichier = Dir(Repertoire & "Account_*.xlsx")
If Len(Fichier) > 0 Then
Workbooks.Open Filename:=Repertoire & Fichier
End If
End If |
Merci de votre aide.
