Bonjour,
dans ma procédure ci dessous je voulais faire en sorte que la date prenne en compte les week end.
je voulais gérer ça à part dans une fonction , puis mettre la date renvoyée dans le nom du fichier.
je ne vois pas trop pourquoi ça ne fonctionne pas , apparemment cette ligne pose problème:

ActiveWorkbook.SaveAs (Chemin & "Spheres Turnover Gas EUR " & Madate)




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
 
Sub Gaspnltest()
Dim Chemin As String
 
 
Chemin = "T:\BackOffice\back dérivé listés\GAS\PNL\2016\September 2016\"
Columns("I:I").Delete
Columns("K:Q").Delete
Columns("h:h").Hidden = True
If Range("d4").Value = "Andrew Mason" Then
Rows(4).Delete
End If
If Range("f3").Value = "GBP" Then
ActiveWorkbook.SaveAs (Chemin & "Spheres Turnover Gas GBP " & Madate)
Else
ActiveWorkbook.SaveAs (Chemin & "Spheres Turnover Gas EUR " & Madate)
End If
End Sub

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function Madate() As String
 
If Format(Date, "dddd") = "Lundi" Then
 
Madate = Date - 3
 
Else
 
Madate = Date - 1
End If
 
End Function
merci de votre aide
eric