Discussion :

[neiluj26]

Rebonjour,

Cette fois, on crée un fichier par semaine qui est toujours sauvegardé au même endroit sur le réseau et nommé sur le même modèle ("Fichier de la semaine " et le numéro de la semaine).

Chaque semaine, j'ouvre par macro le fichier de la semaine précédente pour y reporter des infos. Seulement, il se peut que pendant les périodes de faible activité, on ne crée pas ce fichier toutes les semaines, et qu'il y ait un espace de deux semaines voire plus.

Par exemple, cette semaine (la semaine 13), je vais chercher le fichier de la semaine précédente (donc la semaine 12) en utilisant:

Code :

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

1
2
3
4
 
SemP = Format(DateAdd("ww", -1, Date), "ww")
 
Workbooks.Open Filename:="C\...\Extractions\Fichier de la semaine " & SemP & ".xls", UpdateLinks:=0

Mais si le fichier de la semaine 12 n'a pas été fait, j'aimerais ouvrir le fichier de la semaine 11 (ou de la semaine 10 si pas de semaine 11 etc).

J'arrive bien à boucler sur les fichiers du dossier en m'inspirant de la FAQ, mais je coince au moment de dire qu'il faut qu'il faut ouvrir le fichier "le moins antérieur"...

[neiluj26]

Finalement, j'ai trouvé tout seul.

Si quelqu'un en a besoin et passe par ici, j'ai utilisé un code dans ce goût-là:

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
 
Sub Trouver_Dernier_Fichier()
 
Dim Fichier As String
 
'Définit le numéro de la semaine précédente
SemP = Format(DateAdd("ww", -1, Date), "ww")
 
'Définit le chemin du fichier cherché
Fichier= "C:\...\\Fichier de la semaine " & SemP & ".xls"
 
Do Until Dir(Fichier) <> ""
    If Dir(Fichier) = "" Then
        SemP = SemP - 1
        Chemin = "C:\...\\Fichier de la semaine " & SemP & ".xls"
    End If
Loop
 
'écrit le résultat dans la fenêtre d'exécution (Ctrl+G).
    Debug.Print Fichier

A adapter bien sûr.