Discussion :

[ericparis]

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

[Oliv-]

BONJOUR
Sans doute les / dans la date

[ericparis]

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

[kiki29]

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

[Theze]

Bonjour,

Remplace les slashs par des tirets :

Code :

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

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

[Menhir]

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

[ericparis]

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