Discussion :

[Rania1990]

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.

[Igloobel]

Bonjour,

il nous manque des infos :

- tes extractions sont dans un même dossier
- tes extrations sont dans un même fichier ou dans des fichiers différents
- comment repères-tu manuellement les différentes versions

[Menhir]

Il faut faire un boucle While sur la fonction Dir() pour scruter tous les fichiers et mettre dans deux variables le nom et la date du fichier qui a la date la plus ancienne.

[Rania1990]

@Igloobel,

-tes extractions sont dans un même dossier : oui
- tes extrations sont dans un même fichier ou dans des fichiers différents: fichiers différents
- comment repères-tu manuellement les différentes versions : tous les fichiers commencent par ""Account_" + date et heure, ce qui les différencie c'est les heures. et chaque jours les fichiers extraits sont écrasés et on a de nouveaux extractions

[Igloobel]

Bonjour,
Comme l'a dis Menhir ( ) tu ne boucles pas sur tes fichiers d'extraction c'est pour cela que tu dis :

... sauf que quand je lance ma macro elle me prend que la 1ère extraction celle de 7h du matin ...

comme tu prends toujours le premier c'est normal

tu as plusieurs boucle à ta disposition :

- While (Condition) .... Wend
- Do While (Condition) .... Loop
- Do Until (Condition) .... Loop
- Do .... Loop While (Condition)
- Do .... Loop Until (Condition)

et enfin
- For .... Next


sinon concernant la récupération du mois sur 2 positions je te conseille cette instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mois = Format(Month(Date), "00")

aujoud'hui tu as "04" demain ce sera "05"