VBA Condition pour ouvrir un classeur Excel dans répertoire

Version imprimable

Bonjour,

je suis novice dans VBA et je bloque sur une action qui pour vous, doit etre simple.
Je vous expose mon cas.
Je travail sur un tableau A ("aujourdhui") Excel qui pioche plusieurs informations. De ces informations, il y en a une qui se situe sur un tableau B ("aujourdhui -7 jours).
Je pioche la colonne "F" du tableau B et le colle sur Tableau A en colonne "E".
Chaque Lundi, ce tableau se construit et s'enregistre dans le répertoire "C:\Compta\SCORING\Weekly Report\" & format (date, "yyyy") & "\" & format (date,"mmmm") & "\"

Mon problème est le suivant; je souhaite dire, s'il n'y a pas de Tableau de moins de 7 jours dans le repertoire, alors prendre celui de moins de 8 jours, sinon prendre celui de moins 6 jours.
J'ai trouvé cette façon de faire dans le cas où le lundi est un jour férié.

Merci de vos lumières.

Code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 sub open() Dim chemin, nom, nom2, nom3, nom4 as string Dim wb As Workbook chemin = "C:\Compta\SCORING\Weekly Report\" & format (date, "yyyy") & "\" & format (date,"mmmm") & "\" nom = tableau A nom2 = tableau -7 jours nom3 = tableau - 8 jours nom4 = tableau -6 jours If Dir(chemin & nom2) = "" Then Set wb = Workbooks.Open(chemin & nom3) else Set wb = Workbooks.Open(chemin & nom4) end sub

Bonjour,

tu as un exemple exact du nom du fichier ? là c'est un peu compliqué de deviner comment on doit la reconstituer

admettons que le format soit le numéro du jour, ça ressemblerait à ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Ouvrir()
Dim Chemin As String
Dim Jours()
Dim j As Integer
Dim Nom as String
Dim Wb As Workbook
    Chemin = "C:\Compta\SCORING\Weekly Report\" & Format(Date, "yyyy") & "\" & Format(Date, "mmmm") & "\"
    Jours = Array(7, 8, 6)
 
    For j = LBound(Jours) To UBound(Jours)
        Nom = Chemin & Format(Date - Jours(j), "dd") & ".xlsx"  ' à adapter
        If Dir(Nom) <> "" Then
            Set Wb = Workbooks.Open(Nom)
            Exit For
        End If
    Next j
 
    If Wb Is Nothing Then Msgbox "Les trois fichiers sont inexistants"
End Sub

suite

Bonjour,
merci de ta réponse.
Je te donne plus de détails.

J'ai mon tableau qui se nomme : Rapport buyer 040416
Mon autre tableau est Rapport buyer 290316.

Je vais essayer de mieux expliquer ma demande.
Imaginons, aujourd'hui nous sommes le Lundi 04 Avril 2016.
J'ouvre mon fichier excel et je lance ma macro.
La semaine dernière, le Lundi 28 Mars 2016 était un jour férié. Du coup, j'ai effectué un travail sur un fichier excel le Mardi 29 Mars 2016.

C'est un travail que je lance chaque Lundi.
S'il y a un jour férié entre les 2 semaines, ma macro bug car il n'y a pas 7 jours d'écart entre les 2 tableaux.

Il faut une formule qui dit, si ton tableau d'il y 7 jours n'existe pas, je vais piocher un autre tableau, celui d'il y a 6 jours, sinon celui d'il y a 8 jours.

Merci de ton aide.
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 sub ouvrir() Dim route, chemin, chemin2, chemin3, nom, nom2, nom3, nom4, sentier, sentier2 As String Dim wb as workbook Route = ""C:\Compta\SCORING\Weekly Report\" & format (date, "yyyy") & "\" & format (date,"mmmm") & "\" & format (date, ""ddmmyy") chemin = "C:\Compta\SCORING\Weekly Report\" & format (date-7, "yyyy") & "\" & format (date-7,"mmmm") & "\" & format (date-7, ""ddmmyy") chemin2 = "C:\Compta\SCORING\Weekly Report\" & format (date-6, "yyyy") & "\" & format (date-6,"mmmm") & "\" & format (date-6, ""ddmmyy") chemin3= "C:\Compta\SCORING\Weekly Report\" & format (date-8, "yyyy") & "\" & format (date-8,"mmmm") & "\" & format (date-8, ""ddmmyy") Sentier = "Q:\Compta\SCORING\Weekly Report Rating\" & Format(Date, "yyyy") Sentier2 = "Q:\Compta\SCORING\Weekly Report Rating\" & Format(Date, "yyyy") & "\" & Format(Date, "mmmm") nom = "Rapport Buyer " & Format(Date, "ddmmyy") & ."xls" nom2 = "Rapport Buyer " & Format(Date - 7, "ddmmyy") & ."xls" nom3 = "Rapport Buyer " & Format(Date - 6, "ddmmyy") & ."xls" nom4= "Rapport Buyer " & Format(Date - 8, "ddmmyy") & ."xls" If Dir(chemin & nom2) = "" Then Set wb = Workbooks.Open(chemin2 & nom3) else Set wb = Workbooks.Open(chemin3 & nom4) Workbooks.Add If Dir(Sentier, 16) = "" Then MkDir Sentier If Dir(Sentier2, 16) = "" Then MkDir Sentier2 ActiveWorkbook.SaveAs route & nom end sub