Enregistrer a aujourdhui() -1

[sten83]

bonjour a tous je me trouve devant un probleme, je voudrais enregistrer un fichier via une macro a aujourdhui() -1.
Je n'arrive pas a trouver de post a ce sujet.
Merci pour votre aide.

ci-dessous le code de ma macro:
si je met -1 derriere la ligne en rouge cela ne fonctionne pas
je voudrais aussi le meme resultat dans msgbox

MakeDirEx ("C:\RECETTES PEAGE\")
Application.DisplayAlerts = False

ActiveSheet.Select
CmdPrint.Visible = False
CmdSavRapport.Visible = False
CmdNewRapport.Visible = False

ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\RECETTES PEAGE\" & ActiveSheet.Name & " " & "DU" & " " & Format(Date, "dd-mm-yy")

ActiveWorkbook.Close
CmdPrint.Visible = True
CmdSavRapport.Visible = True
CmdNewRapport.Visible = True

Application.DisplayAlerts = True

MsgBox "RAPPORT DU:" & " " & Date & " " & "Sauvegardé!", vbInformation, ThisWorkbook.Name


End Sub

 

[Pierrot93]

Re : Enregistrer a aujourdhui() -1

Bonjour,

essaye avec ceci :

ActiveWorkbook.SaveAs "C:\RECETTES PEAGE\" & ActiveSheet.Name & " " & "DU" & " " & Format(Date -1, "dd-mm-yy")

bonne journée
@+

Edition : bonjour 00🙂🙂

 

[DoubleZero]

Re : Enregistrer a aujourdhui() -1

Bonjour, sten83, le Forum,

Peut-être en remplaçant :

[COLOR=#FF0000]ActiveWorkbook.SaveAs "C:\RECETTES PEAGE\" & ActiveSheet.Name & " " & "DU" & " " & Format(Date, "dd-mm-yy")[/COLOR]

par :

ActiveWorkbook.SaveAs "C:\RECETTES PEAGE\" & ActiveSheet.Name & " DU " & Format(Date - 1, "dd-mm-yy")

A bientôt 🙂

P. S. : Bonjour, Pierrot 😀... bien plus rapide que bibi 😱

 

[sten83]

Re : Enregistrer a aujourdhui() -1

Merci a vous en fait c'etait tous simple 🙄