Bonjour j'aimerai pouvoir enregistrer mon fichier avec un nom de fichier et la date de lundi prochain et pouvoir le faire aussi pour le lundi suivant (donc deux semaines après), le tout avec une sub que j'affecterai à un bouton
Ce que je sais faire :
- Trouver lundi prochain
Function jourprochain(x As Date, Optional typejour As Byte = vbMonday) As Date
lundiprochain = x + 8 - Weekday(x, typejour)
End Function
- Enregistrer sous :
Sub Enregistrement()
Dim Path As String, valeur As String,
Path = ActiveWorkbook.Path & "\"
valeur = "planning du " & ".xlsm"
ThisWorkbook.SaveAs Path & valeur
End Sub
Ce que je ne sais pas faire :
- le lien entre les deux
J'ai tenté :
Sub Enregistrement()
Dim Path As String, valeur As String,
Path = ActiveWorkbook.Path & "\"
valeur = "planning du " & lundiprochain & ".xlsm"
ThisWorkbook.SaveAs Path & valeur
End Sub[
mais cela ne fonctionne pas.
Merci de votre aide