Utiliser fonction dans Sub

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:

---

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:

---

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

BONJOUR
Sans doute les / dans la date

c'est la méthode saveas qui ne fonctionne pas, ça ne vient pas des \
merci qd mm

Salut, les caractères interdits dans un nom de fichier sont : "*/:<>?[\]|

Bonjour,

Remplace les slashs par des tirets :

Code:

---

1 2 3 4 5 6

Function Madate() As String   Madate = Replace(Date - IIf(Format(Date, "dddd") = "lundi", 3, 1), "/", "-")   End Function

---

Citation:

---

Envoyé par ericparis

c'est la méthode saveas qui ne fonctionne pas, ça ne vient pas des \

---

D'accord avec Oliv- :
la date contient des "/"
Un nom de fichier n'accepte pas les "/"
Donc une date dans un nom de fichier, ça ne marche pas.

Si tu veux que ça marche, il faudra utiliser la fonction Replace sur Madate pour changer les "/" en... autre chose (des "-" par exemple).
https://msdn.microsoft.com/fr-fr/lib.../gg264409.aspx

en effet c'est bien les slash retourné par la fonction qui provoque l'erreur
j'ai juste ajouté ça à la fin de ma fonction

Madate= Format(Madate, "dd-mm-yyyy")

thx