Bonjour, j'ai avec de l'aide sur ce forum, une macro qui est ci-dessous.

Tous les jours je charge via lotus note, un fichier xls qui est ouvert en lecture seul, au format "jvfixe+date du jour de fin du fichier+nomfixedufichier.xls.

cette macro tourne au quotidien, sauf que le vendredi le fichier ne porte pas la date du jour mais celle du dimanche soir.... ou du lundi soir si lundi ferié ...

et je ne sais pas comment faire pour selectionner un fichier qui selon les cas a la date du jour ou une date ulterieure, il faut que je teste, mais comment.

Merci d'avance, de votre aide précieux.

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
Sub Macro2()
'
' Macro2 Macro
' Macro le 12/02/2013 
'
'
 
 
Dim date1 As String
'met au fomat  la date du jour
date1 = Format((Now), "yyyymmdd")
'Cherche et active la feuille
    Windows("Jvr_" & date1 & "_00134_fichier_du_jour.xls").Activate
 
 
'Sauvegarde la feuille sous le nom voulu
 
      Application.DisplayAlerts = False
 '
     ActiveWorkbook.SaveAs Filename:= _
     "c:\temp\miseajour.xls" _
    , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
       ReadOnlyRecommended:=False, CreateBackup:=False
    '
    Application.DisplayAlerts = True
 
 
'Retour feuille principale
        Windows("recap.xls").Activate
           MsgBox " C'est bon, on continue, maintenant appuyer sur     MAJ    jet 1"
 
 
 
End Sub