title: Save & close workbook with current date as name
body: <p>I am quite new in VBA and I’m looking to automate a current process using VBA.</p>
  
  <p>For every week of each month (Wednesday), I need to export an existing Excel template from Internet into a new workbook. This part is done but i would need to :</p>
  
  <ol>
  <li><p>Save it like: "01 05 2018_With taxes_1889". I have so far found and adapted the code below which, when run once, creates a temporary file and save it into my folder but do not closed it automatically. 
  It would be great to have all download file saved with their related date in my folder.</p></li>
  <li><p>I’m also willing to completely automate the process with a query which will launch the process each Wednesday of each week? </p>
  
  <pre><code>Private Sub ADD_BTN_Click()
      Dim line As Integer
      Dim Ws As Worksheet
      Dim DBS As Database
      Dim RST As Recordset
      Dim SQL_TXT As String
      Dim COUNTRY_ID As Integer
      Dim DATE_FUEL As String
      Dim test As Boolean
  
  DownloadFile (LINK_FUEL) ' Download file on C:\TEMP
  Workbooks.Open (BUFFER_FILE)
  
  Set Ws = ActiveWorkbook.Worksheets("Weekly Prices with taxes")
  
  datEfuel = Right(Ws.Cells(1, 12), 10)
  
  For line = 1 To 47
      If OPEN_DBS(DBS, FUEL_DB) Then
          SQL_TXT = "SELECT * FROM COUNTRY_DATA WHERE COUNTRY_NAME LIKE '" &amp; Ws.Cells(line, 1).Value &amp; "'" ' Search Country name
  
          If OPEN_RST(DBS, RST, SQL_TXT) Then
              COUNTRY_ID = RST![COUNTRY_ID]
              RST.Close
              SQL_TXT = "SELECT * FROM FUEL_DATA WHERE COUNTRY_ID=" &amp; COUNTRY_ID
              test = True
              If OPEN_RST(DBS, RST, SQL_TXT) Then
                  While Not RST.EOF
                    If RST![FUELDATA_DATE] = CDate(datEfuel) Then test = False
                    RST.MoveNext
                  Wend
                  RST.Close
              End If
              If test Then
                  SQL_TXT = "SELECT * FROM FUEL_DATA"
                  OPEN_NEW DBS, RST, SQL_TXT
                  RST![COUNTRY_ID] = COUNTRY_ID
                  RST![FUELDATA_DATE] = datEfuel
                  RST![FUELDATA_AUTOMOTIVE] = Ws.Cells(line, 8).Value
                  RST.Update
              End If
  
          End If
          DBS.Close
          End If
  
  
  Next line
  
  End Sub
  </code></pre></li>
  </ol>