Enregistrer sous nom avec variable date J ouvré -1
k
Bonjour,
je réalise un export pour le travail quotidiennement, un fichier de traitement par macro me génère un fichier enregistré automatiquement à la date du jour ouvré précédent seul problème, ma société travail aussi le samedi et quand je réalise mon export le lundi matin, il me l'enregistre à la date du vendredi, comment indiquer que le samedi est un jour ouvrable ?
j'utilise le code suivant pour l'enregistrement
ActiveWorkbook.SaveAs Filename:="C:\Users\Documents\SUIVI QUOTIDIEN\RESULTATS_" & Format(WorksheetFunction.WorkDay(Now, -1), "yymmdd") & ".xlsx", _merci d'avance
Bonjour,
Un exemple à adapter :
Dim strDate As String
Const F As String = "C:\Users\Documents\SUIVI QUOTIDIEN\RESULTATS_"
strDate = Format(WorksheetFunction.WorkDay_Intl(Date, -1, 11), "yymmdd")
ActiveWorkbook.SaveAs Filename:=F & strDate & ".xlsx", FileFormat:=51k
désolé pour la réponse tardive! c'est nickel merci beaucoup