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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.